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Prefacio 


La llegada al mercado de los microordenadores domésticos 
dotados del sistema operativo MSX, ha suscitado un Indudable 
Interés. El MSX brinda la posibilidad - ya de por sí 
Interesante - , de que toda una variedad de microordenadores 
de diferentes marcas puedan ejecutar los mismos programas. 
Pero no solo el Importante hecho de la compatibilidad atrae 
nuestra atención. El Intérprete BASIC de que estén dotados 
estos microordenadores, ha sido desarrollado por la firma 
norteamericana MICROSOFT, lo cual es de por sí una garantía 
de la calidad del mismo. El BAS1C-MSX es potente, el número 
de instrucciones que soporta es elevado ,y por ello su 
aprendizaje puede parecer algo complicado. De hecho, no lo 
es en absoluto, como veremos. 

El usuario de un microordenador doméstico debe orientar su 
utilización més allá de lo lúdlco. Utilizar un ordenador 
solo para jugar es fnfrautl I Izarlo. Por muy fascinantes que 
puedan ser los programas elaborados - juegos de fútbol, 
guerras espaciales, carreras de coches, partidas de ajedrez, 
luchas contra extraños monstruos, etc.- no hay nada más 
excitante que ser uno mismo el que programa. Quien analiza 
por primera vez un problema y consigue que el programa 
Introducido lo resuelva en cuestión de segundos y sin 
errores, puede congratu I arse. Un logro de este tipo prueba 
la utilidad del ordenador, es decir, que nos libere del 
pesado trabajo mental, siendo ésta su principal aplicación, 
que determina su creciente Importancia. 
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Por este motivo, en el presente libro queremos enseñarle al 
alumno cómo aplicar el ordenador, en concreto un.MSX, para 
resolver los problemas fundamentales de la enseñanza 

escolar. , 

En resumidas cuentas, con este libro se persiguen 

simultáneamente cuatro objetivos: 

1. Se toman los problemas escolares más normales, 
por ejemplo de matemáticas , física u otras 
asignaturas y se proponen medios para una 
solución. 


2. La descripción de estos medios es presentada 
al lector de forma que pueda aplicarlos al 
ordenador. 


3. Se Informará al lector sobre la utilización 
del lenguaje de programación BASIC destinado a 
aquellos programas necesarios para solucionar 
los problemas antes mencionados. 


4. De esta forma, el lector dispondrá de una 
colección de programas, que le será útil en 
la escuela. 



Como en muchos otros ámbitos, dentro del campo de la 
programación y de I a utilización de ordenadores se cumple lo 
siguiente: 


f * La práctica hace al maestro 11 

En los capítulos de este libro, se cubren los siguientes 
campos: 

1. Problemas de matemáticas 

2. Problemas de química 

3. Problemas de física 

4. Ejercicios de lenguas 

5. Problemas de b lología/ecología 

6. Problemas de geografía e historia 

7. Problemas de economía 

8. Otros problemas 


En estos capítulos se contienen algunas explicaciones acerca 
de las bases y condiciones de aplicación del ordenador y se 
discuten, también, los elementos básicos del lenguaje de 
programación BASIC. 

Los lectores que posean suficientes conocimientos de BASIC 
pueden prescindir de estas explicaciones. 

Debemos hacer la siguiente aclaración con respecto a los 
programas que desarrol lamos y presentamos en los capítulos 
siguientes: 


Comprenderá el lector que la utilidad de este libro se hace 
patente especialmente cuando prueba él mismo los programas 
presentados al Igual que cuando ensaya con modificaciones de 
éstos o con otros programas. 


Por una parte, se trata de programas que deben resolver 
determinados problemas (Ejemplo: Programa para calcular un 
' 'máximo común divisor”). 
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Estos programas pueden " alimentarse " con diferentes daTos 
de partida, y sirven siempre para el mismo fin. Por otro 
lado existen también programas sólo de entrenamiento: Por 
ejemplo, un programa que sirve para aprender vocablos 
Ingleses, que no resuelve nlngGn problema, sino que solo 
••entrena”. 

En todo caso, estos programas tienen aplicaciones mas 
generales cuando se proveen de material de partida más 
variado. 


Se están preparando una cassette y un dlskette de programas 
para este libro, donde se encuentran todos los programas 
aquí discutidos, de modo que el lector que quiera 
utilizarlos se pueda ahorrar el trabajo de teclearlos. 

La siguiente observación es de gran Importancia para las 
próximas explicaciones: 

En los programas donde se resuelven los problemas del 
colegio hemos prescindido conscientemente de utilizar los 
elementos más avanzados y complejos del lenguaje BASIC-MSX. 
Por el contrario, nos hemos esforzado en utilizar los 
elementos básicos y sencillos del BASIC. El motivo es evitar 
sobrepasar, tanto las posibilidades del lector. como las del 
principlante, en materia de programación y conseguir, de 
este modo, que tenga la ocasión de centrarse en los 
problemas. 

Esta limitación tiene como consecuencia el que algunos 
programas parezcan demasiado simples pero, aun con ios 
medios más sencillos funcionan y éste era nuestro objetivo. 






No obstante, los programas más complejos de los él timos 
capítulos, requieren la aplicación de otros elementos 
sintácticos, que serán tratados en caso concreto. 

Rogamos también ai lector tenga en cuenta que algunos de los 
programas presentados figuran simplemente a modo de 
ejemplos: 

Si, por ejemplo, en un programa de repaso de vocablos sólo 
se prevén 10, el lector, para poder utilizarlo de forma 
concreta, deberá ampliar primero la lista de éstos. Este 
procedimiento naturalmente no modifica la estructura básica 
del programa - que es lo que a fin de cuentas Importa-. 
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Capítulo 1 : Elementos básicos del lenguaje BASIC 


1.1 Consideración previa 


En este capítulo, se presentan y se exp I i can además de 
algunos conceptos básicos del proceso de datos, que volverán 
a aparecer más tarde, los elementos básicos más importantes 
del lenguaje BASIC. 

Aquellos lectores que ya conozcan suficientemente el BASIC 
pueden saltarse este capítulo. 

Sin embargo, los lectores que no tengan ninguna experiencia 
como programadores pensarán que I as exp I i cae iones de este 
capítulo son algo someras. A éstos les diremos que en los 
próximos capítulos se aclarará la utilización, el 
funcionamiento y el efecto de estos elementos sintácticos 
mientras se aplican de forma práctica. 

Visto de este modo, este capítulo contiene sólo una 
i ntroducción. 
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1 .2 Conceptos básicos que deberían conocerse 


Un ordenador moderno no sé, o sabe calcular. Sabe 

así como ejercer tareas de control. Ello significa ,ue los 
ordenadores, ^ gue boy en dfa ,a pueden adguir.rse por un 
precio bastante médico, no sólo disponen < ta I * ■ 
capacidad de cílculo gue un ordenado, grande d« s .03 ano^ 
sesenta, que era económicamente Inaccesi 
también su aplicación es más universal. 

Datos : Bajo "datos" puede entenderse en el sentido 
más amplío la palabra "Informaciones". 

Concretamente puede tratarse de: 

- cifras y números 

- valores 

- letras 

- símbolos (caracteres especiales) 

- palabras y textos 

Proceso : Bajo "proceso de datos" se entienden los 
procedimientos (frecuentemente cálculos), 

que sirven para regí strar estos datos, para 
almacenarlos, para valorarlos o analizarlos 
y para ofrecer resultados. 

, r-to Ha+ns en la forma descrita no se 

“ In’— , sI^U ayuda de ordenadores, es 

necesario conocer otros conceptos nuevos: 






bit : Bajo bit "blnary Information dlglt" se en- 
tiende la unidad de Información más pequeña 
(ver antes : "datos" = "Informaciones"). 

La unidad de Información más pequeña se 
llama bit, porque un bit puede tener úni- 
camente dos contenidos distintos. Visto 
desde la perspectiva del fabricante de 
ordenadores esto significa: un bit puede al- 
macenar sólo dos contenidos de información. 
Estos contenidos se denominan usual mente 0 y 

1 . 

byte : El byte es la reunión de una serie de bits. 

Normalmente son ocho los bits que constitu- 
yen un byte. De este modo, un byte está en 
condiciones de almacenar una serle de 8 
ceros y/o unos. 

Carác- : Distinguimos tres grupos de caracteres 
ter 1. caracteres numéricos = cifras 

2. caracteres alfabéticos = letras 

3. otros caracteres = caracteres 

especiales 

Generalmente, cada uno de estos caracteres 
se representa en una serle de 8 ceros 
y/o unos en el ordenador, es decir, que 
un byte acepta un carácter. 
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Campo ): Una serle de caracteres (p.e. palabras o 
— números) constituyen un campo. 



ufe 


v & v . .. 


i_ a palabra PRINT, por ejemplo, consta de 5 
caracteres, ocupa 5 bytes en el ordenador, y 
Í£L como estos 5 símbolos pertenecen a una misma 
palabra, constituyen un campo. 

Lo mismo ocurre con el número 178, que es 
almacenado en un campo de tres posiciones 
/ (se deduce que también pueden existir campos 
r&e-W&áe una sola posición). 


Variable: 


£ ¡Oficdok ' (fi* 
LH A WThtyf'. 

íU» 




Qík¿uJ&€L etc 


lUna variable es una magnitud que puede tomar 
diversos valores - precisando - /in no mbre, 
bajo el cual pueden seleccionarse diverso s 
valores (ver abajo). 

Por ejemplo, bajo el nombre ''tamaño'' pode- 
mos hallar los valores 178, 185, 167 etc., 
detrás del nombre ''número de niños'' los 
valores 1 , 2, 0, 4 etc., bajo el nombre 
•'localidad" por ejemplo los valores 'jPalSXLr 
cía", ' 'Alcántara' ', "Palafrugel I ". 


: Como puede deducirse de la definición ante- 
rior, bajo "valor" entendemos una determina- 
da característica que puede adquirir una 
variable dada. No es necesario que sean nú- 
meros, también puede tratarse de palabras o 
textos como en el ejemplo de la variable 
anterior "localidad". 


Cada uno de estos valores ocupa un campo 
del ordenador (ver arriba). También puede 
Mamarse posición de memoria. 
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Llamamos "cadena" a un texto que puede 
representar un valor de una variable (ver 
arriba); genéricamente se trata de una 
cadena de caracteres. 


Tabla / : La totalidad de los valores que puede tomar 
una variable,. (números o p.a labras) se llama 
"tabla". 

' \ ftkUoA 

■(egistroAVar ios campos relacionados constituyen un 
registro. Por ejemplo, todos los datos 
referentes a una persona (nombre, sexo, 
edad, domicilio, etc.) forman un registro. 
En este ejemplo, el registro es una serie 
de números y/o palabras relacionados entre 
sí. 

Una serle de palabras solas puede también 
constituir un registro, por ejemplo la 
instrucción: 


PRINT "PEPE", "ANA", "MAXIMO" 

El registro se denomina también "record". 

Fichero: Varios registros relacionado s forman un 

fichero. Obtendremos un fichero por ejemplo 
si confeccionamos los registros de todos los 
empleados de una empresa. Podemos obtener 
Igualmente un fichero si contemplamos todas 
las instrucciones de un programa en conjunte 
El fichero se llama también "file". 
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,.3 Referente al funcionamiento, de los or denadores 


equipo de proceso de datos. 

1. Recepo I6n de datos ( entrada de datos) 

2. Almacenamiento de datos 

3. Proceso de datos propiamente dicho 

(p.e. cSlculos o traslado de textos P 

y parecidos) s sa |, d3 

4. Salida de datos 

La entrada de ln.ormac.6n, su n-s 

necesarios una serle de pas °* , + los resuelve el 

“-eir r¡,rr::r n " ñamado sls^a 

rrlr^enador debe obtener nuestras I .formaciones P-a 
que el proceso de los datos pueda ponerse en marcha y 
proporcionar resultados. 


Las informaciones que debemos darle se clasifican en tres 

grupos; 

U Los datos a procesar 
Las Instrucciones 

(Pasos, que son necesarios para someter los datos 
introducidos a los procedimientos de valoración 
requer Idos) 

3. Comandos , 

( i n -formaciones e instrucciones que damos 
sistema operaclonal del ordenador; ver arriba) 




De acuerdo con los diferentes grupos de cometidos que debe 
resolver el ordenador distinguiremos entre; 

1» Aparatos de entrada íp.e. el teclado) 

2. Ambito del procesado íia llamada unidad central) 

3. Aparatos de salida (pantalla o impresora) 

Aparte de esto existen también las llamadas memorias 
externas (o periféricas). Sirven para almacenar a largo 
plazo los programas y los datos. Generalmente se trata de la 
cassette y de los llamados dískettes, que se reproducen o 
leen en los correspondientes aparatos reproductores. 
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1.4 Análisis de problemas 


Resolver un problema concreto con ayuda de un ordenador sólo 
es posible si se ha hallado de antemano su solución. El 
lector deberá recordar siempre esta evidencia. Esto quiere 
decir que la solución, a pesar de la modernidad de los 
ordenadores, sólo puede hallarse mentalmente y no en la 
maquina; el ordenador únicamente se ocupa de realizar los 
pasos necesarios. 

Para que un ordenador pueda efectuar esta tarea debe 
Indicársele el procedimiento de resolución en forma de 
Instrucciones Individuales. Esto lleva consigo que deba 
descomponerse mentalmente el problema a resolver en una 
sucesión lógica de pasos Individuales - este procedimiento 
se denomina análisis del problema. 

En un análisis de problema resulta útil representar la 
sucesión de pasos gráficamente en forma de un diagrama de 
f lujo. 

Veamos el siguiente ejemplo Ilustrativo: 



r- 
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Fuente : W» VOSS : BASIC aprendido rápida- y 

fácilmente con el alphaTronlc 
PC, Darmstadt 1984, 

(Helm-ver lag), pag. 8. 
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En los capítulos siguientes utilizaremos una y otra vez el 
Instrumento "análisis del problema”, porque de este modo 
la programación, es decir, la redacción de las secuencias 
Instrucciones para el ordenador, se fácil! 
considerablemente, evitándose los errores de programación. 
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1.5 VIsua I Izaclón de resultados 
~ — — — 

Se le denomina programa a una sucesión de Instrucciones que 
hacen que un ordenador resuelva por sí mismo un problema 
dado. Debe ser escrito en un lenguaje que el ordenador pueda 
comprender. Este es el BASIC. 

| BASIC = 

Beglnner 's 
Al l-Purpose 
Symbol fe 
1 nstructlon 
Code 


Todo programa BASIC consta de una sucesión de Instrucciones 
(statements) que deben ser Introducidos línea a línea en el 
ordenador. Una línea se llama sentencia. 


Regla 1: Cada sentencia BASIC requiere un número. 

Regla 2: Cada sentencia debe concluirse pulsando la 
tecla RETURN. 

Regla 3: Una sentencia puede contener varias Instruc- 
ciones, que hay que separar mediante 

A¿y Cjoí 

S~\ r-\ /- 1 \ 


ir 


o 


o 


o 
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1 nstruccl ón 

I : 



nn 

END 




La Instrucción END cierra el programa BASIC. Sirve asimismo 
para separar una subrutlna del resto del programa BASIC. 


Instrucción 2: 

Sin argumento 
Número 

nn PRINT < Operación 
Cadena 

Nombre de variable 

La Instrucción PRINT trae los resultados a la pantalla. Se 
distinguen cinco posibilidades: 

1. Sin argumento : Se obtiene una línea en 

blanco 

2. Número : Se visualiza el número 

3. Operación : Se visualiza el resultado 

de una operación 

4. Cadena : Se visualiza la cadena (ca- 

dena de caracteres puesta 
entre comí Mas) 

5. Nombre de variable : El contenido de este campo 

de la memoria es visuali- 
zado 

La palabra PRINT puede abreviarse con un ?. 



El siguiente programa BASIC utiliza todas estas 
poslbl I Idades: 


5 as 

10 PRINT 3 
20 PRINT 
30 PRINT 4.8/2 
40 ? 

50 ? "SUSI ,r 
60 ? 

70 ?X 
80 END 

Este programa BASIC sólo se ejecuta si tecleamos el comando 
RUN: 


Comando 1 : 

RUN 


Para el ejemplo anterior, después del comando RUN 
obtendremos .en pantalla los siguientes resultados: 


SUS! 


0 
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Regla 4: Los comandos no reciben ningún número de 
sentencia 

SI después de la Impresión del resultado deseamos ver 
nuevamente nuestro programa en pantalla, neces 
siguiente comando: 

Comando 2: 


La Instrucción PRINT requiere algunas puntual lzactones 
adicionales: 

Las» diferentes posibilidades enunciadas en la 1 

pueden utilizarse tanto mezcladas entre si como en una 

Instrucción PRINT. . 

En este caso deben separarse mediante comas y puntos . 


Regla 5: SI se separan con comas las óUere^es 

presiones dentro de la Instrucción PRINT, I 
Impresión prosigue por el principio de la 
siguiente zona de la pantalla í se tabulan 
14 espacios ); cuando se utiliza el punto 
y coma, la Impresión se produce justo a 
continuación. 


Regla 6: Por regla general, toda Instrucción PRINT 

produce un salto de una línea. SI la Instruc- 
ción contiene la palabra PRINT sola, se pro- 
duce un único salto de línea. 


Regla 7: Una coma o un punto y coma al final de una 

Instrucción PRINT reprimen el salto de .ínea, 


Voss 
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La Instrucción PRINT genera Impresiones de resultados, que 
comienzan en el margen Izquierdo de la pantal la. Para 
cambiar esto puede utilizarse la Instrucción LOCATE: 

Instrucción 3: 

nn LOCATE S,Z 

Esta Instrucción mueve el cursor a la columna S y a la línea 
Z de la pantalla y las Impresiones posteriores comienzan 
allí. 

S pueden tomar valores entre 0 y 39, Z puede tomar valores 
entre 0 y 23. 

Para ello debe Imaginarse la pantalla dividida en cuarenta 
columnas y 24 líneas, situándose la línea 0 arriba del todo 
y la columna 0 a la Izquierda. 

En el siguiente punto trataremos el concepto del nombre de 
variable, que ya jugaba un papel en la Instrucción PRINT, 
además hablaremos sobre partlcu I ar I dades de las operaciones, 
real Izabies. 

Para borrar un programa que ya no nos es de utilidad antes 
de Introducir uno nuevo, se requiere el comando siguiente,' 
que borra el contenido de memoria de! program y pone a cero 
todas las variables: 

Comando 3: 


NEW 




Como ya tendremos ocasión de ver, resulta muy útil para su 
aplicación, el dotar de nombres a las posiciones de memoria, 
con el fin de almacenar diversos valores bajo estos nombres. 

En principio basta con distinguir entre dos tipos de 
variable: 

1. Variables numéricas 

2. Vari ables de cadena 

Las variables numéricas pueden tomar números como valores, 
como por ejemplo: 

3.5 4 -17.01 7 18. -3 0.04 0 

-7,5 20 etc. 

(En lugar de la coma decimal, al programar se utiliza un 
punto) . 

Las variables de cadena tienen secuencias de caracteres como 
valor y deben colocarse entre comillas, por ejemplo: 

"ANTONIO" "00" "SEVILLA" "B-30" etc. 

Regla 8: Los nombres de las variables numéricas 

constan de uno o dos caracteres alfanumé- 
rlcos; el primero debe ser una letra. 

Los nombres de las variables de cadena deben 
acompañarse de un $. 
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1. Variables numéricas : ~ X B1 NM 

2. Variables de cadena : FS C2$ 22$ 

Después de aclarar estos conceptos hablaremos sobre la 
Instrucción . LET, que sirve para asignar valores de modo que 
pueda disponerse de -los mismos a lo largo de todo el 
programa: 

Instrucción 4: 

( número 
operación 
cadena 

nombre de variable 

Puede omitirse también la palabra LET. 

Esta Instrucción permite calcular de la misma manera que se 
hacía con la Instrucción PRINT. 

Los operadores para calcular son los siguientes: 

+ Adición 

Sustracción 

MOD Resto de división de enteros 

\ División de enteros 

’ Multiplicación 

/ División 

Cambio de signo 
Potenciación 

La prioridad disminuye en sentido descendente. 
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El rango de los operadores es -análogo al que conocemos de la 
escuela; en caso necesario deben colocarse paréntesis. 

Muchos cálculos pueden simplificarse mediante las llamadas 

funciones Incorporadas. Las más Importantes son: 


Funciones Importantes 


Nombre 

SIN (X) 
COS (X) 
TAN (X) 
LOG CX) 
EXP (X) 
SQR (X) 
ABS (X) 
F IX (X) 
RND (X) 
CHR$ (X) 
BiN$ (X) 
HEX$ (X) 
0CT$ (X) 
LEN (X$) 
ATN (X) 


Cometido 

Calcula el seno de X en radianes 
Calcula el coseno de X en radianes 
Calcula la tangente de X en radianes 
Calcula el logaritmo neperlano de X 
Ofrece la función exponencial en base e 
Ofrece la raíz cuadrada de X 
Ofrece el valor absoluto de X 
Ofrece la parte entera de X 
Generación de nOmeros aleatorios 
Ofrece el carácter cuyo codlgo ASCII es X 
Convierte X en su expresión binarla 
Convierte X en su expresión hexadeclmal 
Convierte X en su expresión octal 
Ofrece el número de caracteres de X$ 
Calcula la arcotan gente de X 


Ahora podemos prescindir de los ejemplos. Le serán 
suficientes los capítulos siguientes. 
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Los ordenadores MSX utilizan un editor de pantalla completa, 
que puede incluso rivalizar con los editores BASIC de otros 
microordenadores con vocación profesional. Esta 
característica facilita de gran forma la escritura de 
programas BASIC. Un editor de pantalla completa permite la. 
escritura, modificación, o Inserción de un programa, en toda 
la superficie de la pantalla, y no, como ocurre en otros 
microordenadores, en una zona concreta de la misma. Es 
conveniente que antes de escribir un programa, se 

familiarice con los comandos del editor BASIC de su 

microordenador. 

La escritura de un programa BASIC queda rígidamente 
determinado por unas normas concretas. SI se comete un error 
mecanográf ico o de sintaxis de un determinado comando o 
sentencia, el programa no podrá nunca funcionar 

correctamente. En tal caso deberá ser corregido. Para 
hacerlo, no es necesario volver a reescrlblr toda la línea 
en que se ha cometido el error. El editor BASIC permite su 
corrección sin más operación, que la derivada de poslclonar 
el cursor sobre el mismo y escribir sobre el error la 

• correclón pertinente. En caso necesario podrá hacer uso de 
las teclas BS (retroceso), DEL (borrado) e INS (Inserción). 
Su editor MSX dispone de mas funciones, cuyo fin podrá 
consultar en el manual de programación de su ordenador. 
Comentaremos brevemente a continuación, la función de los 
comandos AUTO, DELETE y RENUM, que complementan al editor de 
BASIC. 

AUTO : .Su cometido es generar automáticamente el 
número de línea 

DELETE : Permite el borrado de líneas de un programa. 

RENUM : Su función es volver a numerar las líneas 
de un programa. 

Consulte la sintaxis de estos comandos en el manual de 
programación de su ordenador MSX. 






1.7 Entrada de informaciones 

Para Introducir Informaciones resulta muy adecuada la 
siguiente Instrucción: 

Instrucción 5: 


nn INPUT Lista de var. 

Esta instrucción puede parecer complicada, pero es fácil de 
comprender: 

Cuando el ordenador llega a esta Instrucción, interrumpe el 
proceso del programa y produce un signo de- Interrogación en 
la pantalla. Entonces espera a que el usuario Introduzca 
tantos valores (separados por comas) como nombres haya en la 
lista de variables (es decir, como mínimo un valor, en el 
caso de que se trate de un solo nombre). 


E jemp I os : 


INPUT X El ordenador pide un número, que 

será almacenado en el campo X. 

INPUT A,B,C El ordenador pide tres números. 
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INPUT N$ 


El ordenador pide una cadena (p.e. 
"ANTONIO"), que será almacenada en 
el campo N$. 


En cualquier caso, toda variable de cadena debe ser 
dlmenslonada previamente (ver pag. 31). 


Regla 9: Los nombres en la lista de variables de la'. 

Instrucción INPUT se separan mediante comas 
Los valores a Introducir también hay que 
separarlos de la misma forma. 


Ejemplo: 


5 CLS 

10 PRINT "CUATRO VALORES POR FAVOR : 
20 INPUT A,B,C,D 
30 LET S=A+B+C+D 
40 AM=S/4 

50 PRINT;?:? "PROMEDIO" = " ; AM 
60 END 


Vemos claramente como este programa calcula el promedio de 
cuatro valores a Introducir. 
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1.8 Bifurcaciones del programa 


Mientras en un programa BASIC no aparezca ninguna 

bifurcación (llamada salto), el proceso tiene lugar en el 

orden de los ndmeros de sentencia asignados. SI no se desea 
respetar este orden son necesarios los saltos en e 

Distinguimos entre saltos condicionales y saltos no 
condicionales. 

VeSmos en primer lugar el salto condicional, que se realiza 
gracias a la siguiente Instrucción:. 


Instrucción 6: 


nn IF condición THEN 


Instrucción 
Número sentencia mm 


Esta Instrucción obliga al sistema operaclonal ^del ordenador 
a consultar: SI la condición expresada después del térra no 

Vse cumple, entonces se ejecuta la Instrucción escrita 

detrás de THEN o se pasa a la sentencia numero mm. 

De no cumplirse esta condición, el control del programa pasa 
a la sentencia que sigue a la sentencia IF. 


... 




Regla 10: SI se cumple la sentencia IF, se efectúa la 
Instrucción detrás del THEN o se salta al 
número de sentencia ahí escrito. 

De no cumplirse esta condición, se procesa 
la siguiente sentencia. 


Regla 11: SI hay otras Instrucciones detrás del IF 
dentro de la misma sentencia, sólo se 
se realizarán sí se cumple la condición. 

Ejemplo: 

10 CLS 
20 1=1 
30 Q=l*l 
40 W=SQR ( I ) 

50 PRINT USING ' 'i I 

60 1=1+1 

70 IF I <=20 THEN 30 
80 END 


Este programa calcula los cuadrados (que aparecen en el 
campo Q; línea 30) de todos los números enteros del 1 al 20 
(que aparecen en el campo I), y también sus raíces cuadradas 
(en el campo W; línea 40 ), Imprimiendo cada grupo de tres 
valores en una línea de la pantalla. 
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La línea 70 resulta decisiva. Dicta que el programa vuelva 
una y otra vez a ^la línea 30, mientras en el campo I siga 
habiendo un valor menor de 21 tras elevar su contenido cada 
vez en 1 ( I ínea 60) . 

En tanto esta condición se cumpla, se ejecutará- la 
Instrucción que sigue al THEN (que es el salto de vuelta a 
la línea 30); cuando ya no se cumpla se procesará la 
Instrucción que sigue al IF (línea 80). 


La alternativa al salto condicional la encarna el salto no 
condicional : 


* : »¡ 
Mili 

y til 

j!|j! 


:íi,: 


lili i 




instrucción 7; 

nn GOTO mm 

Cuando el control del programa alcanza esta Instrucción 
tiene lugar un salto a la sentencia número mm. 

Para el siguiente programa de muestra, necesitamos otra 
I nstrucclón: 

Instrucción 8: 

DIM nombre de var. (número 1), 
nombre de var. (... 


Ejemplo: 


DIM X(20) 


Esta Instrucción mantiene libres para la variable X no sólo 
una posición, sino 21 (posiciones 0 a 20). 
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Para utilizar variables de cadena debe mantenerse libre un 
campo por cada carácter de la cadena, por ejemplo: 

DIM A$(5) 

Mantiene libres cinco campos para una cadena, de forma que 
pueda Introducirse una cadena con una longitud máxima de 
cinco caracteres. 

Siempre que se trabaje con variables de cadena habrá que 
escribir una Instrucción DIM como ésta. 

10 DIM A$ ( 1 ) 

20 CLS 

30 ? "INTRODUZCA VALOR : 

40 INPUT X:?:?:? 

50 N=N+1 

60 S=S+X 

70 PRINT "OTRO VALOR (S/N) »; 

80 INPUT A$ 

90 IF A$ = "S" THEN 20 
100 ?:?:?:? "PROMEDIO = »; S/N 
110 END 




Este programa calcula la media aritmética de una cantidad 
cualquiera de valores a Introducir ..^Después de introducir un 
valor, el ordenador pregunta al usuario si desea Introducir 
otros. SI el usuario contesta "S” ('‘sí"), tiene lugar 

un salto de la línea 90 a la línea 20 y se pide el siguiente 
valor. 

Si, por el contrario, ya no quedan valores, es decir, si el 
usuario ya no contesta con "S" en la instrucción INPUT de la 
línea 80, prosigue la ejecución del programa a partir de la 
línea 100 (cálculo y visua Ijzación de la medía). 

La Instrucción CLS borra la pantalla. 
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1 .9 Bucles 

A menudo resulta adecuado ejecutar determinadas partes del 
ro rl -*• - »-» v». Para ello se necesitan los -* - 
bucles (loops). Estos bucles pueden generarse sencillamente 
con las Instrucciones tratadas hasta el momento, tal como 
puede apreciarse en el programa anterior. 

Las siguientes Instrucciones simplifican la constltucISn de 
bucles, abriéndose las siguientes posibilidades adicionales. 

Instrucción 9: nn FOR nombre variable Index = 

valor Inlc. 

TO valor final (STEP longitud) 


La siguiente Instrucción va unida a la anterior: 
Instrucción 10: nn NEXT nombre variable Indexada 


La variable Indexada que aparece en ambas nstrucc enes debe 

ser un número real. El valor Inicial, el valor final V la 

longitud pueden ser números, variables o expresiones 
aritméticas. 
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••Cuando el ordenador llega a la Instrucción FOR, se Iguala 
la variable Indexada al valor Inicial y luego se ejecuta 
esta parte del programa situada entre FOR y NEXT con este 

valor. , .. . 

Tras alcanzar el NEXT, la variable Indexada salta al 

siguiente valor, que resulta del valor inicial + la- longitud 
y se ejecuta nuevamente la misma parte del programa, esta 
vez con el segundo valor de la variable Indexada. 

Esto sigue hasta que, con una nueva adición de la longitud 
tras alcanzar el NEXT, se supera el valor final. Entonces se 
ejecuta la línea que sigue al NEXT. 

Puede suprimirse el "STEP longitud" cuando la longitud deba 

ser Igual a uno. ' ' 

(PRUST, 1982, pag. 64). 

El programa siguiente Imprime 10 veces la expresión "BUENOS 
DIAS" de forma uniforme, puesta una debajo de la otra: 


5 CLS 

10 FOR 1=1 TO 10 
20 PRINT "BUENOS DIAS" 
30 NEXT l 
40 PRINT 
50 PRINT "FINAL" 

60 END 




1 » 10 La utilización de memorias externas 


Siempre se desea guardar por un espacio de tiempo cualquier 
programa elaborado, de modo que se pueda utilizar en caso de 
necesidad (del mismo modo, en. ocasiones se desean utilizar 
programas de otros autores). Esto es posible utilizando 
cantas de cassette o dlskettes. Para ello deben conocerse 
¡os siguientes comandos. 

Para cargar un programa BASIC a partir de un cassette 
necesitamos e! : 

Comando 4: 


CLOAD "Nombre del programa" 

Para grabar un programa BASIC en un cassette necesitamos el: 
Comando 5: 

CSAVE "Nombre del programa" 

El cassette no es un recurso muy fiable. Para verificar si 
la grabación ha resultado correcta se usa el comando 
siguiente: 

CLOAD? "Nombre del programa" 

Se puede variar la velocidad de transmisión con el comando: 
SCREEN (modo gráfico), (tamaño spr I te), (sonido teclas), 
(velocidad de transmisión), (tipo de impresora) 

SI en el submandato (velocidad de transmisión), escribimos 
un 1, la velocidad quedará establecida en 2400 baudlos, si 
por el contrarío, se omite el submandato o se escribe un 0, 
la velocidad será de 1200 baudlos. 
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SI al escribir el comando CLOAD no especificamos el nombre 
del programa, es decir, si escribimos CLOAD " ", el 
ordenador cargará el primer programa que se encuentre, SI 
por el contrario, especificamos el nombre del programa el 
ordenador' solo cargará el programa cuyo título se 
corresponda con el que hemos escrito entre las comillas, e 
Ignorará el resto de los programas que pudiera contener el 
cassette -aunque visualizará el nombre de los mismos a 
medida que se sucedan-. 

Existen también otros comandos que permiten la carga o la 
grabación de Información con distintos formatos del 
habitual. Estos son: 

LOAD "CAS: nombre del programa o archivo" 

Este comando carga en la memoria del ordenador programas o 
archivos almacenados en cinta magnética en formato ASCII, 

SAVE "CAS: nombre del programa o archivo" 

Este comando permite grabar en formato ASCI I un programa 
BASIC o un archivo contenido en la memoria del ordenador. 

BLOAD "CAS: nombre del programa" 

Carga un programa de lenguaje máquina almacenado mediante 
una sentencia BSAVE en un área memoria especificado, 

BSAVE "CAS: nombre del programa", dirección Inicial , 
dirección f Ina I , dirección de comienzo de la 
ejecución 


Almacena un programa en formato binarlo (código máquina). 





Voss 


1.11 O+ros aspectos 


Para cerrar este capítulo Introductor io veamos unos pocos y 
útiles aspectos adicionales. 

La presentación de un programa mejora sustancl a Imente si 
durante la ejecución del mismo y antes de la Impresión de 
los resultados, se borra la pantalla. Esto es posible 
gracias a la instrucción: 


nn CLS 


A menudo resulta necesario parar el proceso de un programa 
en casos como la programación del llamado bucle sinfín. 
Pulsando las teclas CTRL + STOP se para la ejecución del 
programa. 


Finalmente quiero mencionaremos la Instrucción 


Instrucción 11: 


nn STOP, 


mediante la cual el desarrollo del programa se Interrumpe 
por si mismo. Para activar nuevamente el programa 
interrumpido necesitamos el comando: 


Comando 6: 


CONT 



Finalmente quisiera añadir que a menudo resulta útil Incluir 
observaciones explicativas en un programa (títulos, 
comentarlos,- explicaciones, etc.). Esto es posible con la 
siguiente Instrucción: 

Instrucción 12: 


n n REM texto 


Esta Instrucción no Influye en la ejecución del programa, 
pero aparecerá en cualquier listado que se efectúe del 
mismo. 



Espero que estas Indicaciones sirvan para que Incluso el 
principlante tenga una Idea de los elementos básicos del 
lenguaje BASIC. De esta manera estará en condiciones de 
comprender las aplicaciones que siguen. SI aún así tuviera 
problemas de comprensión, sólo puedo darle un consejo: 

PROBAR 

Probando los programas e Intentando analizar por qué el 
ordenador hace precisamente una cosa y no otra se aprende 
más que de cualquier otra forma. 
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Capítulo 2 : Matemáticas 

2.1 Consideración previa 



SI queremos una buena aplicación para el ordenador, no hay 
nada más Indicado que las matemáticas. Por esta razón 
empezaremos por ellas. Más tarde veremos, no obstante, que 
las matemáticas no son el fínico campo de aplicación. 


En todo caso, buscaremos unos ejemplos adecuados pues todos 
sabemos que las matemáticas cubren un espectro de grados de 
dificultad muy amplio - empezando con las operaciones, 
básicas y pasando por el cálculo Infinitesimal. 


Tratarmos problemas de "dificultad media", es. decir, nos 
orientaremos hacia problemas como los que se presentan en el 
til timo nivel de EGB y en el primer curso de bachillerato. 


i 





Voss Capitulo 
Punto 

Colegio 


2 : Matemáticas Página 

1 ; Consideración 40 

prev I a 


Las matemáticas son perfectas para demostrar las 
posibilidades del ordenador, sin que la presentación de los 
problemas tratados ocupe demasiado tiempo debido a un 
eventual grado de complejidad de los mismos. 

Este libro no pretende exceder en las posibilidades del 
lector con los ejemplos de aplicación, simplemente se trata 
de presentar la capacidad del ordenador. Esto se conseguirá 
con problemas de estructura sencilla, adaptados a los 
problemas de los escolares más jóvenes. 


En los programas de este y de los siguientes capítulos se 
seguirá la siguiente norma : 


¡En los programas prescindiremos de corregir 
los errores de Introducción del usuario! 


Por ejemplo, en un problema matemático dado, si sólo pueden 
utilizarse números positivos (por ejemplo en las raíces), el 
correspondiente programa no tiene previsto el Informarle al 
usuario en caso de. haber Introducido por error un número 

negativo. 

Comenzaremos ahora con un ejemplo de grado de dificultad 
"medio". 
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Por medio del famoso teorema de PItágoras puede mostrarse de 
forma clara, cómo hay que estructurar un problema. < 


Siempre se seguirán los siguientes pasos de trabajo 


-Pasos de trabajo 


2. PASO : Análisis del problema 


3. PASO : Diagrama de flujo 


4. PASO : Programa 




5. PASO : Lista de variables 


6. PASO : Descripción del programa 


7. PASO : Resultados 









Siguiendo esta estructuración pasemos ahora af problema 
citado: , 4 

1. PASO : Presentación del problema 


El teorema de PItágoras dice que en el triángulo rectángulo, 
la longitud del lado base (hipotenusa) es Igual a la raíz 
cuadrada de la suma de los cuadrados de ambos catetos. 

Esta figura Ilustra lo dicho: 


c -\p + b z 


b 

2. PASO : Análisis del problema 

En este caso, el análisis del problema es muy sencillo: 

Debe recordarse tanto aquí como en los siguientes problemas 
que cualquier proceso de datos funciona segán el 

Principio EPS 

ya .presentado. 
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E 

- Entrada 

P 

~ Proceso 

S 

= Salida 


Por esta razón deberemos ' fijar, en primer 
Informaciones que debe recibir el ordenador 
parte, para la resolución del problema. 


lugar, las 
de nuestra 


Las Informaciones 
de ambos catetos a 


de entrada son lógicamente las longitudes 
y b. 


En el proceso, estos dos 
cuadrado; debe efectuarse su 
raíz cuadrada de esta suma. 


valores deben ser elevados al 
suma y finalmente extraerse la 


La 

el 


salida consiste 
resultado obtenido 


Unicamente en visualizar en la pantall 
(la longitud de la hipotenusa c). 


a 
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REM PITAGORAS 
COLOR 1,15, 15:CL$ 

? "PROGRAMA PARA DETERMINAR LA HIPOTE- 
’ " NUSA DE UN TRIANGULO RECTANGULO" 


Descripción del programa 


Nos bas 
programa 


en la primera 


60 INPUT "PRIMER CATETO 
70 INPUT "SEGUNDO CATETO 
80 LET Q ] =A*A 
90 LET Q2=B*B 
100 LET S=Q1 +Q2 
110 LET C=SQR(S) 

120 ?;?:? "HIPOTENUSA C = 
130 END 


Comentario 


Línea 20 : Se establecen los colores de ,a pastal la 

y se procede a su borrado. 

Línea 30-50: ImpresISn del título en pantalla 

Línsa 60 , Se pide un valor para el primer cateto, 

que es almacenado en el campo A- 

Línea 70 : Lo mismo con el segundo cateto en el 

campo B 


Línea 80 


calculo del cuadrado del primer cateto 
Cálculo del cuadrado del segundo cateto 
Suma de los dos cuadrados resultantes 
Cálculo de la raíz de la suma 


Línea 90 


Línea 120 


Impresión del resultado en pantalla 


programa 
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7. PASO : Resultados 

Una vez Iniciado el programa (en su primera versión) aparece 
e! título en la pantal la: 

PROGRAMA PARA DETERMINAR LA HIPOTE- 
NUSA DE UN TRIANGULO RECTANGULO 

PROF. DR. W.VOSS, 1984 

Dos líneas más abajo se pide el primer valor: 

PRIMER CATETO : ? 

A continuación. Introduzcamos por ejemplo el valor 3 y el 
ordenador reaccionará de la forma siguiente: 

SEGUNDO CATETO : ? 

Introduzcamos por ejemplo el valor 4, a lo que el ordenador 
contestará: 

HIPOTENUSA C » 5 

Este programa es adecuado para calcular, a partir de 
cualquier valor, la hipotenusa de un triángulo rectángulo. 
En este sentido se trata de un programa muy general. 
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Hemos tratado este problema muy extensamente con el fin de 
Ilustrar el procedimiento a seguir en cada uno de los 
ejemplos. De ahora en adelante nos ahorraremos 
explicaciones, por lo menos cuando se trate de ejemplos tan 
sencillos como ei Teorema de PItágoras. 
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s del problema 


c.m. de dos números 


En muchos cálculos 
máximo común d!vís< 
(m.c.m.) de dffer 
aparecen quebrados. 


Por medio de los números 
más adecuada para ha! la, 


Heos resulta útil co 
y el mínimo común i 
números, especialmente 


es la forma 


El M.C.D. es 
n úmeros s I n 
esta condición 


que es divisor, 
ningún otro número 


Hn resto, de dos 
mayor que cumpla 


ejemplo se halla 


de la forma siguiente 


División del 
anotación del 


número menor entre el resto 
nuevo resto. 


si tomamos por ejemplo los dos nSmeros 21 
M.C.D. es 10 y el m.c.m. es 120. (d 
comprobar mediante cálculo mental). 


nuevo re. 
es el M.C.D 


'o es 0 ; 
buscado 


que nos ha llevado al 


o puede 


ejemplo Ilustrativo 
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Campo 1 : ZI 
( Número 
mayor) 

Campo 2 : Z2 
(Número 

menor ) 

División 

Resto 

78 

42 

1 

36 

42 

36 

1 

6 

36 

6 

6 

0 


El M.C.D. de 78 y 42 es 6. 

El esquema de cálculo puede transformarse fácilmente en un 
diagrama de flujo tal como muestra la tabla de arriba. 

Pero antes pasemos al mínimo común múl tipio (m.c.m.): 

El m.c.m. de dos números Z1 y Z2 se obtiene dividiendo el 
producto de ambos entre el M.C.D. 

Así, para los números Z1=78 y Z2=42 se obtiene: 

Z1 * Z2 78 * 42 

m.c.m. = 546 

M.C.D. 6 



Para efectuar este cálculo dentro de un programa BASIC según 
la tabla de arriba cambiando continuamente el valor 


Voss Capítulo 2 : Matemáticas 

Punto 3 : M.C.D. y m.c.m. 

Colegio 


que ocupa cada campo, calcular el M.C.D. e Introducir los 
valores ZI y Z2 en dos campos auxiliares H1 y H2 de 
"memoria Intermedia" para que estén disponibles para el 
cálculo del m.c.m. 
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División Q = Z1/Z2 
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Puntó 


3. PASO : Diagrama de fiujo 
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4. Paso : Programa 


10 REM MATES2 -MCD Y MCM- 

20 COLOR 1,15, 15:CLS 

30 PRINT "PROGRAMA PARA DETERMINAR EL M.C.D. Y" 

40 ? "EL M.C.M. DE LOS NUMEROS I NTR0DU-" : ? "CIOOS." 
? : ?: ? 

50 2 " PR0F. DR. W. VOSS, 1984":?:?;? 

60 INPUT "NUMERO MAYOR : "jZT 
70 PR INT:PR| NT 

80 INPUT "NUMERO MENOR : ";Z2 
90 H1=Z1 :H2=Z2 
100 Q=Z1/Z2 
1 10 R=Z1-Z2* INT(Q) 

120 IF R>0 THEN Z1=Z2:Z2=R:G0T0 100 
130 MD=Z2 

140 MM=(H1 *H2)/(MD) 

150 ?:?:?:? "M.C.D. = *';MD 

160 ?:?:? "M.C.M. = ";MM 

170 ?:?:?:? "FINAL DEL CALCULO" :END 

5. Paso : Lista de variables 

: Máximo común divisor 
: Campo auxi liar 1 
: Campo auxiliar 2 
: Mínimo común múltiplo 
: Cociente de los números Z1 y Z2 
: Resto de la división 
i Número mayor 
: Número menor 


MD 

H 1 

H2 

MM. 

0 

R 

Z1 

Z2 













Voss Capítulo 2 : Matemáticas Página 

- Punto 3 • M.C.D. y m.c.m* 56 

Colegio 

6. PASO : Descripción del programa 

Línea 10-50 : Título y explicaciones 

Línea 60 : introducción de un número 

Línea 70 : Dos líneas en blanco 

Línea 80 : Introducción del otro numero 

Línea 90 : Ocupación de los dos campos auxiliares 

H1 y H2 con los valores Introducidos, 
para más tarde seguir disponiendo de 
los mismos (ver 140) 

Línea 100 : Determinación del cociente de los dos 

números Introducidos 

Línea 110 : Determinación del resto de la división 

utilizando la función INT 

Línea 120 : SI este resto es mayor que 0 se ocupa 

el campo Z1 con el segundo número Z2 y 
el campo Z2 con el resto R, volviendo 
el programa a la línea 100 

Línea 130 : SI en cambio el resto es Igual a cero, 

en el campo Z2 tendremos el M.C.D. , 
que será transferido al campo M.C.D. 


Línea 140 


: De acuerdo con nuestra reflexión, el 
mcm resulta del producto de ambos 
números (que aún se encuentran en 
los campos H1 y H2), dividido entre 
el MCD. 

Línea 150-160 : Impresión de los resultados con una 

separación de algunas líneas en blanco 

Línea 170 : Finalización del programa 


7. PASO : Resultados del programa 

Después del comando RUN, el programa Indica, en una 
"pantalla limpia", lo siguiente : 

PROGRAMA PARA DETERMINAR EL M.C.D. 

Y EL M.C.M. DE LOS DOS NUMEROS 
INTRODUCIDOS 

PR0F. DR.W.VOSS, 1984 

NUMERO MAYOR : ? 

Cuando aparezca el I nterrogante, que como ya se sabe, Indica 
una Interrupción del programa. Introducir por 







ejemplo el valor 78¿ a continuación el programa pedirá el 
segundo nGmero: 

NUMERO MENOR : ? 

Introduzcamos por ejemplo el nGmero 42 y el ordenador 
llevará a pantalla los resultados siguientes: 

M*C.D. = 6 

M.C.M. = 546 
FINAL DEL CALCULO 
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Punto 4 : Comprobación de 

Colegio números primos 


2. 'PASO : Análisis del problema 


Para comprobar si un número dado es primo, hay que dividirlo 
entre todos los divisores mayores que 1, pero menores que el 
mismo. Mientras aparezca un resto en estas divisiones o el 
cociente no sea entero, habrá que seguir dlvldtendo por otro 

divisor. 

De obtener en una de estas divisiones un resultado sin 
resto, el número a examen no será primo. 

SI, en cambio, se obtiene un resto en todas las divisiones 
posibles, se llegará a la conclusión de que el número 
Inicial es primo. 

Los divisores que deben ser probados comienzan por el 2 y 
pueden finalizar a la mitad del número inicial; los 
divisores mayores que éste no es necesario probarlos, porque 
en ningún caso darán un cociente entero. 


Ejemplo : Número inicial X - 25 

1. Divisor : 2 25/2 = 12 resto 1 

2. Divisor : 3 25/3 « 8 resto 1 

3. Divisor : 4 25/4 = 6 resto 1 

4. Divisor : 5 25/5 = 5 resto 0 


25 no es ningún número primo. 
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Este ejemplo muestra como puede simplificarse de modo 
considerable - y coh ello acelerarse - el programa si 
analizamos cuidadosamente el problema: 

Un número par nunca puede ser primo pues, en todo caso, éste 
ya es divisible por 2. Por ello pueden excluirse los 
números pares como "números no - primos" desde el comienzo 
del programa. 

Nos quedan los números impares. Para un número cualquiera X 
no es necesario que el divisor llegue a ser X/2; basta con 
que probemos divisiones hasta máximo l/)T. SI hasta este 
punto no es posible ninguna división sin resto, tampoco lo 
sera con divisores mayores. 


Invitamos al lector a que intente demostrar esta afirmación. 
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4. Paso : Programa. 

10 REM "MATES3" -NUMERO PRIMO" 

20 COLOR 1,15,1 5 :CLS 

30 ? " PROGRAMA PARA COMPROBAR SI EL NUMERO" 

40 ? " INTRODUCIDO ES PRIMO 0 NO." 

45 

47 7 •> PROF. DR. W. VOSS, 1984" 

50 

60 INPUT "UN NUMERO ENTERO, POR FAVOR : ";X 
70 T=2 

75 IF X=0 THEN 20 

80 IF X/2=INT (X/2) THEN 140 

90 Q=X/T 

100 IF Q— I NT C Q ) THEN 140 
110 T=T + 1 

120 IF T<=SQR(X) THEN 90 

130 ?:?:?:?:? X;"ES UN NUMERO PRIM0":G0T0 150 
140 ?:?:?:?:? X;"N0 ES UN NUMERO PRIMO, SINO" 
145 ? " QUE ES DIVISIBLE POR ";T 
150 "FIN DEL CALCULO":END 


5. Paso : Lista de variables 


Q = Cociente entre el número X y el divisor T 
T = Divisor 

X = Número a Introducir para comprobar si es 
primo o no. 



Descripción del programa 


Título, limpieza de la pantalla e 
Impresión del título» 


Demanda del número a comprobar 


Línea 60 


Ocupación del campo divisor con el 2 


SI X es divisible por 2 (entonces X/2 
= INT (X/2)), pasar a la línea 140; 
si no es así, proseguir en la línea 90 


Línea 80 


División de X entre T (se obtiene Q) 


Línea 90 


SI en una de las divisiones el resto es 
0 (Q = INT(Q) ) , seguir en la línea 140, 
en caso contrario seguir en la línea 
110 . 


Línea 100 


Aumentar el divisor T en 1 


Línea 110 


Mientras T siga siendo más pequeño que 
VT , volver a la línea 90, de lo con- 
trario proseguir en 130. 


SI se alcanza esta línea es porque nin- 
guna de las divisiones ha dado resto 0 
Esto significa que X debe ser número 
primo. 
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Línea 140 
y 145 


Línea 150 


Se Imprime el resultado y tiene lugar un 
salto a la línea 150. 

: La línea -140 se alcanza únicamente en 
el caso de haber obtenido resto 0 en 
una de las divisiones. 

Esto supone que X no es primo, y que es 
(como mínimo) divisible por el valor 
que hay en el campo T. 

Esto se visual Iza. 

. Finalización del programa. 


7. PASO : Resultados 

En este y en próximos ejemplos prescindiremos de repetir la 
Impresión del título. repetir la 

Después de aparecer el título, el programa pide el número a 
comprobar y | c almacena en el calo x , 7 f° 
presclndlremos en este y en préxlmos ejemplos de reproducir 
los correspondientes textos de demanda). Producir 

Introduzcamos p.e. el número 13 y el ordenador contestará: 

13 ES UN NUMERO PRIMO 


FIN DEL CALCULO 



SI en cambio Introducimos el número 27, el ordenador nos 
contestará: 

27 NO ES UN NUMERO PRIMO, SINO 

QUE ES DIVISIBLE' POR 3 

FIN DEL CALCULO 
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2.5 Ecuación de segundo grado 

1. PASO : Presentación del problema 

La resolución de ecuaciones de segundo grado se 
cuenta entre los problemas fundamentales de la matemática en 
los tí I timos niveles de EGB y primeros del BUP y prepara para 
problemas de mayor complejidad. 

La forma general de una ecuación de segundo grado en la cual 
hay que despejar la Incógnita x es: 

(1) ax 3, + bx + c » 0 

Dividiendo esta Igualdad por el coeficiente a, se obtiene: 

(2) x* + px + q = 0 

Se obtienen dos soluciones x v y x e a partir de la fórmula 
siguiente: 
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Según la constelación de coeficientes a, b y c, la fórmula 

(3) nos llevará a resultados distintos. 

Por ejemplo, cuando el valor bajo la raíz es negativo, 
obtendremos resultados fuera del campo de los números 
reales. Este valor se llama dlscrlmlnante(D). 

Se obtienen también soluciones especiales cuando el 
coeficiente a es Igual a 0;en este caso ya no tenemos una 
ecuación de segundo grado. 

Por ello, de ahora en adelante contemplaremos sólo los casos 
' 'auténticos " (a ^ 0) y al mismo tiempo con soluciones 

reales (D>0). En todos los demás casos el programa deberá 
generar un mensaje de Interrupción. 

Para resolver el problema utilizaremos la fórmula (3) en su 
variante (4): 

(3) x -~p/2 

( 4 ) x = HÍ\/ D H es un valor 

auxí 1 I ar que 
equivale a -p/2 

El correspondiente programa BASIC debe determinar primero 
los valores H y D, para luego Imprimir las soluciones o un 
mensaje de Interrupción según sea D>0 o D<0. 
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4. PASO 


REM "MATES4" 

REM -ECUACION DE SEGUNDO GRADO- 
COLOR 1,15,1 5 :CLS 

? " PROGRAMA PARA RESOLVER UNA ECUACION 1 
? " DE SEGUNDO GRADO." 


47 ? " PROF. DR. W. VOSS, 1984» 

50 ?:?:?:? 

60 INPUT "Coeficiente del término cuadrático A: 
"jAjPRINT 

70 INPUT "Coeficiente del término cuadrático B: 
' * ;B: ? 

80 INPUT "Término Independiente C: 

’ ' ;C: ? 

90 P=8/A:Q=C/A 
100 H=-P/2:D=P*P/4-Q 

110 IF D<0 THEN ? "SOLUCION IMPOSIBLE EN EL CAMPO 

REAL": GOTO 150 

120 X1=H+$QR<D):X2=H-SQR(D) 

130 ?:?:? "XI = ";X1 
140 7:7 "X2 = »;X2 

150 ?:?:?:? "FINAL DE LOS CALCULOS" :END 


A = Coeficiente de la parte cuadrática. 
B = Coeficiente de la parte lineal 
C - Constante de la ecuación cuadrática 
D = Discriminante 
P = B/A 
H = -P/2 
Q = C/A 

X1-- Primera solución. 

X2= Segunda solución. 
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6. PASO : Descripción del programa 


Línea 10-50 : Comentarlo e Impresión del título 

Línea 60-80 : Introducción de ¡os coeficientes de la 

Igualdad cuadrática Cen la forma (1)) 

Línea 90 : Determinación de P y de Q según la 

Igualdad (2) 

Línea 100 : Determinación del valor auxiliar H y 

del discriminante D 

Línea 110 : SI D es menor que 0, tiene lugar un 

mensaje de Interrupción y se pasa 
a la línea 150 

Línea 120 : SI, en cambio, el discriminante no 

es negativo, se calculan las dos 
soluciones XI y X2 


Línea 130-140: Ambas soluciones se visualizan en 
I a pantal la 
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7. PASO : Resultados 


Introduzcamos p.e.: 


A = 4, 

B = 4, 

C = -24, 


¡El lector debería 
probar también 
otros valores! 


Se trata de la ecuación de segundo grado: 
4x* + 4x - 24 = 0, 



tras lo cual el 


resultados: 

ilfc 

>< 

ii 

N3 

lili 

X2 = -3 

P 

FINAL DE LOS CALCULOS 


Línea 150 


Fina 


del programa 
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2.6 Número e 


1. PASO : Presentación del problema 


El número de Euler, abreviado e, llamado también constante 
de crecimiento, juega un papel Importante en el desarrol lo 
matemático de serles, que pueden ser contempladas como 
cadenas de crecimiento o de desarrollo. 


Este sirve además como base de los llamados logaritmos 
neper lanos, que volveremos a encontrarnos en el capítulo 
dedicado a problemas de economía. 


SI nos hemos olvidado del valor del número e, podemos 
calcularlo con ayuda de un programa BASIC adecuado y siempre 
sabiendo cómo surge e. 


Se trata del límite de la siguiente sucesión, cuando n 
tiende hacia Infinito: 

v> 

e = (1 + 1/n) para n hacia Infinito. 



2. PASO : Análisis del problema 


El análisis del problema es muy sencillo en este caso, dado 
que se trata únicamente de programar ¡a fórmula anterior. 


Este programa puede probarse con valores crecientes y 
alternativos de n. Como el valor e se alcanza sólo con n 
tendiendo hacia Infinito, recomendamos hacer crecer 
rápidamente n, por ejemplo doblando su valor en cada 
cálculo. 


Ello exige, no obstante, empezar con un valora de n mayor que 
1 (es decir, p.e. n =2), para que n no se quede estancado 
en 1 al duplicarlo. 





3. PASO : Diagrama de flujo 



Se parte de 

la base de 

recorrer 1 2 
"vueltas”. 




4. Paso : Programa 


10 REM "MATES-5" -EULER- 

20 COLOR 1 , 15, 15:CL$ 

30 ? "PROGRAMA PARA DETERMINAR EL NUMERO E." 

40 7 « PROP. DR. W. VOSS, 1984" 

50 ? 

60 N=2 

70 ? " n"," e":?:? 

80 POR 1=1 TO 12 
90 £=( 1+1 /N) A N 
100 ? N, E 
110 N=N*2 
120 NEXT I 

130 ?:? "FINAL DEL PROGRAMA" :END 


5. Paso : Lista de variables 

V- 

E = Número e (valor aproximado) 

1 = Indice contador de bucle 
N = Parámetro en la fórmula para el cálculo 
del número e 








6. PASO : Descripción del programa 

Línea 10-50 : Título 

Línea 60 : Ocupación del parámetro N con el 

valor Inicial 2 

Línea 70 : Impresión del título de la tabla y 

de una línea en blanco 

Línea 80-120 : Recorrer 12 veces el bucle. En cada 

vuelta se calcula E, se Imprimen N y E 
y se dupl lea N 

Línea 130 : Final del programa 


7. PASO : Resultados 


Este programa genera una tabla, en la que se enfrentan los 
valores crecientes de N con los valores resultantes de E. 

En esta tabla puede observarse como e se acerca a un valor 
f I jo. 

Para acercarnos aún más al límite, deberíamos recorrer más 
vueltas de bucle. 


1 


Entonces habría que modificar la línea 80, por. ejemplo del 
modo siguiente: 


80 FOR I = 1 T0 30 

En todo caso, hay que tener en cuenta que los valores 
demasiado altos de n pueden conducir a errores, debido a las 
Imprecisiones de cálculo del ordenador. 

La tabla resultante del programa anterior ofrece este 
aspecto : 


n 


e 


2 2.25 

4 2.44140625 

8 2.5657845139503 

16 2.6379284973669 

32 2.6769901293775 

64 . 2.6973449525641 

128 2.707739019692 

256 2.7129916242772 

512 2.71563200017 

1024 2.7169557294491 

2048 2.7176184823503 

4096 2.7179500809023 


FINAL DEL PROGRAMA 
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2.7 Cálculo de porcentajes 


1. PASO : Presentación del problema 


La regla de tres juega un papel -fundamental en el 
cálculo de porcentajes. Por ejemplo responde a la pregunta 
de qué parte de una cantidad total S representa un 
determinado Importe B. Podemos Ilustrar este problema con un 
ejemplo típico: 

El importe de una factura asciende a Ptas. 45000.-. El 
cliente debe pagar adlclonalmente el llamado Impuesto sobre 
el valor añadido, que supone un 10* del Importe neto de la 
factura, de lo cual resulta: 


Importe bruto « Importe neto + Impuesto 


El problema que aquí se plantea consiste entonces en 
determinar, primero el Importe del Impuesto y despees e 
importe bruto, para un Importe neto y un porcentaje del 

Impuesto dados. 


Naturalmente podría pedirse el 
porcentaje y el Importe bruto. 


Importe neto sabiendo el 



2. PASO : Análisis del problema 


El ejemplo citado arriba puede solucionarse por regla de 
tres de! modo siguiente (señalándonos así el modo de 
resolución) : 


Importe neto = 100 % equivalente a 45000.— Ptas. 
Impuesto = 14 % equivalente a x Ptas. 


Con ello queda claro el camino a seguir: Se trata de 
introducir en un programa general el Importe neto y el 
porcentaje del Impuesto ( o de forma más general, el 
porcentaje, que puede elegirse arbitrariamente para 
cualquier aplicación). 


45000*10 


4500.- (Ptas.) 
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3. PASO 


Diagrama de flujo 

C 


Comienzo 


3 


Introducción 
Importe neto^ 
NB / 


Introducción 

Porcentaje 

Impuesto 


Calcula 

valor 

Impuesto SB 


Calcula 
[Importe bruto; 
BB 
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4. Paso : Programa 


10 REM "MATES6" -PORCENTAJE- 
20 COLOR 1,15, 1 5:CLS 

30 ? "PROGRAMA PARA LA ESTIMACION DE PORCEN" 

40 ? "TAJES.":?:? 

50 ? " PROF. DR. W. VOSS, 1 984” :?:?:? 

60 INPUT "Importe neto : "¿NB 

70 INPUT "Porcentaje : "¿SS 

80 SB=NB*SS/1 00 

90 BB=NB+SB 

95 ?:?:?:? 

100 ? "IMPORTE NETO - : »;NB:? 

110 ? "VALOR PORCENTUAL : "¿SB:? 

120 ? "IMPORTE BRUTO : «;BB 

130 ?:?:?:? "FIN DEL PROGRAMA" ;END 


5. Paso : Lista de variables 

BB = Importe bruto 
NB = Importe neto 
SB = Valor porcentual 
SS = Porcentaje 
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6. PASO : Descripción del programa 

Línea 10-50 : Título. 

Línea 60-70 ; Introducción del Importe neto y dei 

porcentaje. 

Línea 80-90 : Cálculo del Importe del porcentaje y 

del Importe bruto. 

Línea 95 : Cuatro líneas en blanco. 

Línea 100-120 : Impresión en pantalla de los resul- 
tados 

Línea 130 : Final del programa. 


7. PASO : Resultados 

SI se Introduce por ejemplo el Importe neto 200 y el 
porcentaje 15?, el programa contestará: 

IMPORTE NETO : 200 

VALOR PORCENTUAL : 30 

IMPORTE BRUTO : 230 

FIN 
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Presentamos un programa que echa iuu 
calcula el promedio de puntos obtenido 


de forma 
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2 • PASO : Análisis del problema 

Para utilizar la función RND con un ordenador MSX basta con 
Indicar el argumento 1« 

El lector debería probar simplemente esta función. 
Introduciendo por ejemplo: 

PRINT RNO(I) 

y otra vez: 

PRINT RND ( 1 ) 

o todavía mejor: 

FOR I = 1 TO 10 : PRINT RND ( I ) : NEXT I 
y seguidamente la tecla RETURN. 

En la pantalla aparecerán números aleatorios situados todos 
ellos entre 0 y 1 , 


No obstante, queremos obtener como resultado 100 valores 
enteros situados entre 1 y 6 - como cuando se echa un dado 
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El esquema siguiente Ilustra cómo pueden generarse números 
enteros entre el 1 y el 6 a partir de números aleatorios 
tomados del ámbito de valores entre 0 y 1: 


Elaboración 
Función RND 


Función INT 


Resultado 

Entre 0 y menos 
de 1 

entre 0 y menos 
de 6 

entre 1 y menos 
de 7 

entero entre 1 
y 6 


Con ello se ha trazado ya el camino para resolver el 
problema. Como finalmente se desea obtener el promedio, 
habrá que sumar todos los resultados y dividir esta suma 
entre 100. 
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Programa 


REM "MATES 7'* -DADO- 

COLOR 1,15,15:CLS 

? "PROGRAMA PARA GENERAR 100 TIRADAS DE" 
? "DADO Y CALCULAR EL PROMEDIO DE PUNTOS 1 


60 ? " PROF. DR. Wo VOSS 

70 ?:? 

80 1=1 
90 X=RND ( 1 ) 

100 X=X*6:X=X+1 :X=INT(X) 

lio ? X?" 

120 S=S+X 
130 1=1+1 

140 IF I <101 THEN 90 
150 AM=S/100 
160 ?:?:? 

170 ? "VALOR MEDIO = ";AM 

180 ?:?:? "FINAL DE LA IMPRESION": 


Valor medio 
Contador de bucle 
Suma de todas las tiradas 
Valor aleatorio 
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Línea 10-70 : Título 

Línea 80 : Ajuste del contador de vueltas 

Línea 90-100 : Generación de un número aleatorio 

y transformación en un número 
entero situado entre 1 y 6 

Línea 110 : Impresión 

Línea 120 : Incremento de la suma S en el 

resultado de la tirada X 

Línea 130 : Salto de uno del contador de 

vueltas 

Línea 140 : Mientras I sea menor que 101 

vuelta a la línea 90 

Línea 150-170 : Cálculo del promedio e Impresión 
Línea 180 : Final del programa 


7. PASO : Resultados 


Después de Iniciar el programa, éste genera tras el título 
100 sucesos aleatorios de tirada de un dado y los Imprime 
línea a línea (pensar por qué tiene lugar una Impresión 
línea a línea). 

A continuación el ordenador calcula, a partir de los 100 
sucesos, el promedio y lo visual Iza. SI el generador de 
números aleatorios funciona . correctamente," resultado 
deberá acercarse a 3.5. 


Como los resultados dependen del azar, lógicamente no los 
podemos representar aquí. 







Un ordenador MSX reserva un nGmero i Imitado de 
bytes para cada nGmero real con el que va a calcular. Esto 
significa que la precisión con la que trabaja está limitada. 
Puede verse esto claramente si Introducimos valores 
"grandes" en el programa que sigue, haciendo que se Impriman 
a continuación : 


10 REM EXACTITUD CALCULO 
20 A=1 23456785* 

30 B=1 23456789»* 

40 C=1 234567891/ 

50 0=12345678912/ 

60 E«1 234567891 23/ 

70 F=1 234567891 234/ 

80 G=1 234567891 2345/ 

90 H=1 234567891 234567/ 

95 ? "A = ";As? "B = ";B:2 "C = ";C: 
? «D = ";D: ? "E = ";E:2 "F = »;F: 

? "G = ";G: ? "H = ";H:2 "H+1 = "jH+1: 

2 "H+99= ";H+99 


Obtenemos ios siguientes resultados: 


A - 1 2345678 

B = 123456789 

C = 1234567891 

D » 12345678912 

E = 123456789123 

F - 12345.67891234 

G = 12345678912345 

H « 1. 234567891 2346E+1 5 

H+1 = 1. 234567891 2346E+1 5 

H+99= 1 . 234567891 2356E+1 5 


2.9 Exactitud de los cálculos 



Matemáticas 
Exactitud de ios 
cálculos 
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o como 


Este producto da como resultado 


e, el ordenador ha redondeado por debajo la 
del valor de H, que ya no puede considerar. 


medio de otros 
' 'recortando* * 


En todo caso, como | 
ejemplos, este redo 
simplemente la posición 

El principal problema que surge aquí es el siguiente: 

Sí, por ejemplo, sumamos 1 al valor H en el programa 
anterior, y hacemos que se Imprima también el resultado en 


no advertiremos ninguna diferencia entre ios 
de H+1 - ¡el ordenador calcula mal! - 
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3.1 Otras Instrucciones BASIC 


Tomemos el caso de la molécul 


H 
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Para generar representaciones como ésta se necesitan algunas 
Instrucciones adicionales. Estas se refieren a la 
utilización de caracteres especiales (en un próximo capítulo 
hablaremos de las posibilidades de los llamados gráficos de 
alta resolución). 

Para confeccionar este tipo de dibujos resulta muy adecuado 
el juego de caracteres gráficos MSX (ver manual de 
Instrucciones ) . 

Estos caracteres, que pueden hal larse bajo determinados 
códigos ASCII (para ello resulfan necesarios algunos 
caracteres especiales adicionales) pueden seleccionarse con 
la función: 


CHR$ (argumento) 

El argumento de esta función es el ndmero de código ASCII 
del símbolo deseado. 


Para visualizar todos los símbolos del código ASCII puede 
utilizarse el programa siguiente: 





i 

j 



10 SCREEN 1 : COLOR 1 , 15, 15:KEY OFF:CLS:?:?:?: ? 

20 ? "ESTE PROGRAMA VISUALIZA TODOS" 

30 ? "LOS SIMBOLOS DEL C0D160 ASCII" 

40 ? UTILIZADOS POR ESTE ORDENADOR":?:?:?:?:?:?:?:? 

50 GOSUB 250 
60 FOR X=0 TO 14 
70 FOR Y-l TO Y+16 

80 IF Y <32 THEN A$=»NO USADO" ELSE A $= "SIMBOLO » 

90 IF Y-10 THEN ? "ASCII = 10";, "PASA L INEA":GOTO 160 

100 IF Y=1 1 THEN ? "ASCII « 11";, "PONE CURSOR":GOTO 160 

110 IF Y=1 2 THEN ? "ASCII = 12";,"CLEAR SCREEN":GOTO 160 

120 IF Y-27 THEN ? "ASCII = 27";, "DESPLAZA" :GOTO 160 

130 IF Y-31 THEN ? "ASCII = 31";, "PASA LINEA":GOTO 160 

140 ? "ASCII =";Y,A$;CHR$(1 );CHR$(Y) 

150 IF Y=254 THEN 200 
160 NEXT Y . 

170 1-1+17 
180 GOSUB 250 
i 90 NEXT X 

200 ?:?:? « FIN DEL PROGRAMA" 

210 END 
220 REM 

230 REM -SUBRUT I NA- 

240 REM 

250 ?:?:?:? " Pulse cualquier tecla":? " para con 
tlnuar" 

260 B$=INPUT$( 1 ) 

270 as 

280 RETURN 
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SI el usuario introduce por ejemplo: 

PRINT CHR$( 1 ) ;CHR$( 73) 

en la pantalla aparece un símbolo similar a una bolita. 

De la misma manera, después de introducir 
PRINT CHR (255 ) 

se obtiene un cuadrado de color claro (el símbolo del cursor 
que tan bien conocemos). 

En el caso de nuevos problemas disponemos posibilidades 
i nteresantes: 



PRINT 

CHR$( 1 ) ;CHR$(65) 

que 

da 



PRINT 

CHR$(1 ) ;CHR$(66) 

que 

da 

© 


PRINT 

CHRSU );CHR$(67) 

que 

da 



PRINT 

CHR$(1 ) ;CHR$(79) 

que 

da 

# 

-V 

PRINT 

CHRSU );CHR$( 93) 

que 

"da 

/ 

:• 

PRINT 

CHR$(1);CHR$(94) 

que 

da 

\ 

y 

PRINT 

CHRSU );CHR$( 188) 

que 

da 

O 


PRINT 

CHRSU );CHR$(216) 

que 

da 

A 


Incorporando este tipo de instrucciones a los programas 
podemos generar gráficos (alan cuando sean bastante toscos). 
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Instrucción 13 


Ejemplo 


10 REM -INTRODUCCION DATOS- 
20 COLOR 1,15, 1 5:KEY 0FF:CLS 
30 DATA 4600,4630,8000,2000 
40 READ P1,P2,P3,P4 
50 LOCATE 13,10 

60 PRINT ,P1 rPRINT ,P2;PRINT ,P3:PRINT 
70 END 


Invitamos al lector a probar este programa 


Cuando la cantidad de datos sea elevada, recomendamos 
utilizar un Cínico nombre de variable que, no obstante, 
tomará varios valores. Esto se consigue utilizando variables 
Indexadas como las que ya conocemos de las matemáticas. 
Normalmente en términos matemáticos se escribe: 
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x.,, * 3 » ••• término general x- 

Esto puede ¡ levarse a cabo de la misma forma con el lenguaje 
BASIC: 

X(1), XC2), X(3), ... término general X(l) 

(en general: 

nombre variable (nombre del índice)) 

1 

Cuando utilizamos estas variables Indexadas hay que 
comunicar al ordenador al comienzo del programa cuantas 
posiciones de memoria deben mantenerse libres para cada una 
de las variables en el principio del programa. 

Para ello utilizaremos la Instrucción DIM: 

Instrucción 13 

nn DIM nombre var. 1 (numl), nombre var.2 (num2), ... 

Así por ejemplo la Instrucción: 

10 DIM X(20) 


mantiene libres 21 posiciones de memoria para la variable X. 




Aquí se trata de las posiciones X(Q), X(1), X(2), X(3),..., 
X ( 20 ) . 

Para completar esta explicación añadiremos que son también 
posibles Indexados dobles: 

La Instrucción: 

10 DIM Z(2,3) 

mantiene libres 3*4 posiciones de memoria para la variable 
Z, que uno puede Imaginarse divididas en tres líneas y 
cuatro columnas: 


Z(0,0) 

Z(0,1) 

Z(0,2) 

Z(0,3) 

Z(1,0) 

Z(1,1) 

Z(1 ,2) 

Z( 1 ,3) 

Z(2,0) 

Z(2, 1 ) 

Z(2,2) 

Z(2,3) 


El formato general es en este caso: 

Z(I,J) 

El primer índice (I) es el llamado índice de línea y el 
segundo índice (J) es el llamado índice de columna. 

Para finalizar queremos Indicar que la Instrucción READ de 
un programa, toma valores de los DATAS en orden sucesivo. 
Ello significa que una segunda Instrucción READ proseguirá 
con la lectura de los DATAS, allí donde dejo de hacerlo la 
última Instrucción READ. 
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Adn así, a menudo es más razonable volver a ieer desde el 
principio la lista de DATAS con una segunda (o siguiente) 
Instrucción READ. 




Para hacer posible esto necesitamos una Instrucción nueva: 


Instrucción 14: 


nn RESTORE 

Esta Instrucción provoca que el "cursor de lectura" sea 
emplazado nuevamente al comienzo de la primera Instrucción 
DATA, de modo que los datos sean leídos nuevamente desde el 
principio con la siguiente Instrucción READ. 



3.2 La molécula de agua 


1. PASO : Presentación del problema 

Vamos a generar, con ayuda de un programa BASIC, 
la representación gráfica de la molécula de agua (H ¿ 0); 
(véase también el punto 3.1). Los átomos de hidrógeno se 
representarán p.e. en forma de pequeños círculos y el átomo 
de oxígeno como una bol ita blanca que nos sonríe. 

Así, este programa puede usarse como base de programas más 
complejos de este tipo de representación gráfica. 


2. PASO : Análisis del problema 

Una vez tenemos ante nosotros el gráfico que debe generarse 
con este programa, el análisis del problema resulta muy 
sencl lio: 

Se trata de producir exactamente el mismo dibujo que ya 
realizamos al comienzo del punto 3.1. 

Observaremos que este dibujo se compone de cinco líneas: 
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1. Línea : un pequeño círculo. 

2. Línea : una línea oblicua de arriba a la Izquierda 

a abajo a la derecha. 

3. Línea : una bolita blanca sonriente 

4. Línea : una línea oblicua de abajo a la Izquierda 

a arriba a la derecha. 

5. Línea : un pequeño círculo. 

El pequeño círculo podemos generarlo, como ya hicimos antes, 
mediante el uso de los códigos ASCI I 1-73; escribiendo 
CHR$( 1 );CHR$(73) , y la bolita sonriente mediante 
CHR$(1 ) ;CHR$(66) . 

Las dos líneas oblicuas pueden generarse haciendo uso de los 
operadores aritméticos BASIC V", (división) y "V, 
(división de enteros). 
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10 REM "QUIMICA - J " 

20 COLOR 15,1,1 :KEY OFF:CLS:SCREEN 1 
30 ? "REPRESENTACION DE LA M0LECU-" 

40 ?:? "LA DE AGUA H2-0" 

50 ?:? " PR0F. DR. W. VOSS, 1984" 

60 LOCATE 16,10:? CHR$ ( 1 ) ;CHR$ ( 73) 

70 LOCATE 18,11:? «N " 

80 LOCATE 20,12:? CHR$(1 );CHR$(66) 

90 LOCATE 16,14:? CHR$U );CHR$(73) 

100 LOCATE 18 13:? 

110 LOCATE 3,12:? » H -O" 

120 LOCATE 7,13:? "2" 

130 LOCATE 5,20:? "FIN DEL PROGRAMA" 
140 END 


Lista de variables 


En este programa no se utiliza ninguna variable 
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6» PASO : 
Línea 10-50 
Línea 60 

L í nea 70 

Línea 80 

Línea 90 

Línea 100 

Línea 110 

Línea 120 
Línea 130 
Línea 140 


3 : Química 

2 : Molécula de agua 


Descripción del programa 

: Título del programa. 

: Impresión de un círculo en la columna 
16, línea 10. 

: Impresión de una raya oblicua en la 
columna 18, línea 11. 

: Impresión de una bolita sonriente en la 
columna 20, línea 12. 

: Impresión de un círculo en la columna 
columna 16, línea 14. 

: Impresión de una raya oblicua en la 
columna 18, línea 13. 

: Impresión de H^-0 en la columna 3, 
línea 12. 

: Impresión del subíndice 2 
Impresión de "Final del programa" 

Fin del programa 





7. PASO : Resultados 


La Impresión en pantalla de este programa es similar a la 
que presentamos en el punto 3*1. 
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3.0 Reacción química 


1. PASO . : Presentación del problema 


Las reacciones químicas también pueden 
representarse gráficamente ,de una forma ciara, como se 
demuestra en el ejemplo del proceso de fabricación del 
acero. 

La fabricación del acero -aparece en los países 
Industrializados con la producción de hierro bruto en los 
altos hornos. Esta producción se desarrolla en los 
siguientes pasos: 

1. Paso : Se quema aire callente con carbón para 
obtener monóxldo de carbono: 

2 C + 2 CO 

carbón oxígeno monóxldo 

de carbono 
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El monóxldo de carbono (CO) callente 
asciende por el horno y reacciona allí 
con el óxido férrico (Fe 0 ): 


Oxido Monóxido Hierro Dióxido 
férrico de carbono de carbol 


De este modo se obtiene hierro bruto para su posterior 
uti I Ización. 


Presentamos ahora un programa BASIC que sirve para mostrar 
estas reacciones químicas. 


Para la representación de los atomos y de las moléculas nos 
serviremos de las mismas posibilidades gráficas que en el 
ejemplo precedente. 


En realidad, con la descripción antetlor y considerando lo 
dicho en el ejemplo anterior, el análisis del problema ya 
queda resuelto, de modo que podemos ahorrarnos cualquier 
otra explicación. 





3. Paso : Diagrama de flujo 

Tampoco aquí resulta necesario el diagrama de flujo, por los 
mismos motivos que en el punto anterior. 


4. Paso : Programa 

10 REM Q2-REAC. QUIMICA 

20 COLOR 15,1,1 :KE Y OFFíSCREEN 1 :CLS 

30 ? "PROGRAMA PARA REPRESENTAR UNA» 

40 ? "REACCION QUIMICA." 

50 ?:? " PR0F. DR. W. V0SS, 1984" 

60 LOCATE 6,9;? CHRSd ) ;CHR$( 73) 

70 LOCATE 21,10;? CHR$ ( 1) ;CHR$ (73) ;CHR$ ( 1 ) ;CHR$ (66) 
80 LOCATE 11,11:? CHR$ ( 1 ) jCHRS (66) ;CHR$ ( 1 ) ;CHR$ (66) 
90 LOCATE 17,11;? »-» 

100 LOCATE 21,12:? CHR$(1 );CHR$(73);CHR$(1 );CHR$(66) 
110 LOCATE 6,13:? CHRSd );CHR$( 73) 

120 LOCATE 5,17:? "2 C + 0 = 2 C0" 

130 LOCATE 12,18:? "2" 

140 ?:? 

150 ? "Pulse una tecla para seguir" 

160 A$=l NPUTS ( 1 ) 

170 CLS 

180 LOCATE 23,2:? CHR$ ( 1 ) ;CHR$(66) 

190 LOCATE 17,3:? CHRSd );CHR$(79) »;CHR$(1); 
CHRS (73) 

200 LOCATE 23,4:? CHR$(1 ) ; CHRS (66) 

210 LOCATE 3,6:? CHRSd );CHR$ (66) ; » »;CHR$(1); 

CHRS ( 73) ;CHR$ ( 1 ) ;CHR$ (66) 

220 LOCATE 2>7:? CHRSd );CHR$(79) 

230 LOCATE 23,7:? CHRSd ) ;CHR$( 66) 
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240 LOCATE 3,8:? CHR$<1 ).;CHR$(66);" + "jCHRSU); 

CHR$(73) 

250 LOCATE 10,8:? CHR$(1 ).;CHR$(66) 

260 LOCATE 20,8:? "+ ";CHR$(1 );CHR$C73) 

270 LOCATE 2,9:? CHR$( 1 > ;CHR$(79) 

280 LOCATE 23,9:? CHRSC1 ) ;CHR$(66> 

290 LOCATE 3,10:? CHR$(1 );CHR$(66) 

300 LOCATE 9,10:? CHRJU) ;CHR$(73) jCHRSd );CHR$(66) 
310 LOCATE 23,12:? CHR$(1 );CHR$(66) 

320 LOCATE 17,13:? CHR$(1 );CHR$(79) 

330 LOCATE 23,13:? CHR$(1 );CHR$(73) 

340 LOCATE 23,14:? CHR$(1 );CHR$(66) 

345 LOCATE 13,8:? 

350 LOCATE 0,17:? " Fe O + 3 CO « 2 Fe + 3 CO" 

360 LOCATE 2,18:? " 2 3» 

370 LOCATE 26,18:? "2" 

380 ?:?:? " FIN DEL PROGRAMA" :END 
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5. PASO : Lista de variables 
No se utiliza ninguna variable. 


6. PASO : Descripción del programa 


Línea 10-50 : Título 

Línea 60 : Impresión de un círculo, columna 6, 

línea 9 

Línea 70 : Impresión de un .círculo y de una bolita, 

en las columnas 21/22, línea 10 

Línea 80 : Impresión de dos bolitas en las columnas 

11 y 12, línea 11 

Línea 90 : Impresión de un signo = en la columna 

17, línea 11 

s. 

Línea 100 : Igual que en la línea 70, pero en la 

línea 12 

Línea 110 : Igual que en la línea 60, pero en la 

línea 13 

Línea 120-140 : I mpres I ón* de I texto: 

2 C + Ot = 2 C0 

Línea 150-170 : Espera y borrado de la pantalla 




- í 
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Línea 180-345 : Impresión del gráfico de la segunda 
reacción 


Línea 350-370 : Impresión de la segunda reacción 


Línea 380 


programa 


Vr)r! *.Y*r 
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7. PASO : Resultados 


El programa presentado genera consecutivamente dos gráficos 
en la pantalla; el segundo dibujo aparece cuando el usuario 
pulsa cualquier tecla. 

Podemos prescindir de presentar aquí ambos dibujos, pues no 
nos es posible efectuar una representación en colores. Nos 
pare.ce más razonable que el lector pruebe directamente el 
programa en un televisor o monitor. 






Voss Capítulo 3 : Química 

Punto 4 : Estequíometría 

Colegio 


3.4 Cálculo estequlométrtco 

I. PASO : Presentación del problema 

Los cálculos estequíométrícos consisten en cuantlfícar las 
cantidades de las diferentes sustancias que participan en 
una reacción química. Permiten contestar por ejemplo a la 
;j •. siguiente cuestión: 

¿Cuántos gramos de azufre son necesarios para convertir 
completamente en sulfuro de zinc 100 gramos de zinc? (Azufre 
» 5; Zinc = Zn; Sulfuro de zinc » ZnS). 

Peso atómico del azufre : 32.1 
Peso atómico del zinc : 65.4 
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2. PASO : Análisis del problema 

Para resolver el problema deberemos partir de la 
correspondiente reacción: 

Zn + S *- ZnS 

SI relacionamos las llamadas masas molares de la substancia 
buscada y de las subtanclas dadas, obtendremos que: 

son necesarios 32.1 g de azufre para 
transformar 65.4 g de zinc (ver arriba). 

Se cumple que: 

x/100 = 32.1/65.4 

o 

x - 3210/65.4 
x es el valor buscado. 
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4. Paso : Programa 

10 REM <QU 1 M-3>-CALCUL0S QUIMICOS 

20 KEY 0FF:SCREEN 0:C0L0R 1 , 15, 15:CLS:W IDTH 40 

30 ? "PROGRAMA PARA CALCULOS ESTEQU I0METR ICOS. " 

40 ? " PROF. DR. W. VOSS, 1984" 

45 ?:? " 

46 FOR X=2 TO 37 

47 ? 

48 NEXT X 

50 OIM A $ < 10) ,B$( 10) 

60 ?:?:? " Ejemplo :":?:? 

70 ? » ZINC + AZUFRE = SULFURO DE ZINC , , 

80 ?:? " Zn + S =. Zn S":? 

90 ?:?' "Cuántos gramos de azufre son necesarios' 1 

100 ? "para transformar completamente 100 g de" 

110 ? "Zinc en Sulfuro de Zinc?":? \ 

120 INPUT "1. ELEMENTO : ";A$ j 

130 INPUT "2. ELEMENTAS ";B$ 

140 ?:? "PESO ATOMICO DEL ";A$: LOCATE 30,21:? "= 

I NPUT A 

150 ? "PESO ATOMICO DEL ";B$:LOCATE 30,22:? "= 

I NPUT B 

160 X=B* 100/A j 

170 ?:? "SE NECESITAN n jCSN6(X); M gr. de ";8$ 

180 ?:?:? " FINAL DEL CALCULO" :END 

i 

i 

5. PASO : Lista de variables i. 

A = Peso atómico elemento A 
AS = Nombre del elemento A 
B = Peso atómico elemento B 
B$ = Nombre del elemento B 
X = Cantidad buscada 
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6. PASO : Descripción del programa 


Línea 10-110 : Título y vlsua 1 Izaclón del ejemplo 

del que se ocupa el programa 

Línea 50 : Dimensionado de las cadenas 

Línea 120-130 : Introducción del nombre de ambas 
sustancias 

Línea 45-48 : Bucle de impresión de una línea 

Línea 140-150 : Impresión de los nombres de las sus- 
tancias y demanda de los pesos atómi- 
cos de las mismas 

Línea 160 : Cálculo de la cantidad buscada 

Línea 170 : Impresión del resultado 

Línea 180 : Final del programa 
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7. PASO : Resultados 

Después de las aclaraciones, el programa pide el nombre del 
primer elemento» 

SI. introducimos p.e. "azufre", entonces nos pide el^ nombre 
del segundo elemento que deberá considerarse en el cálculo. 

SI introducimos p.e. "zinc", el programa nos obliga a 
introducir los pesos atómicos del azufre y del zinc. 

SI en respuesta introducimos los valores 32.1 y 65.4, el 

programa nos ofrece el siguiente resultado: j 

SE NECESITAN 203.738 gr. de Zinc [; 

1 : 

FINAL DEL CALCULO I 

Se entiende que el programa "debe ser modificado 
profundamente en determinados casos, cuando se trata de 
procesos químicos distintos a este (p.e. también cuando 
participan más de dos substancias en las reacciones del 
problema) . 

En este caso hemos procurado únicamente presentar a modo de 
ejemplo un programa de este tipo. 






1. PASO : Presentación del problema 

No solo podemos utilizar un ordenador para 
efectuar cálculos como el del ejemplo precedente o para 
generar gráficos Ilustrativos (como en el punto anterior), 
sino que puede utilizarse además -en el ámbito escolar- 
precisamente como "fichero de consulta". 

El ejemplo del sistema periódico de los elementos Ilustra el 
posible aspecto que cubre uri "programa de consulta" de 
este tipo, que también puede entenderse como programa de 
entreno. 

El usuario puede desear, por ejemplo, que el ordenador le dé 
Informaciones básicas acerca de un elemento previamente 
introducido (p.e. el azufre). 

Estas Informaciones pueden ser por ejemplo: 
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1 . Símbolo químico, 

2. Námero de orden en el sistema periódico, 

3. Peso atómico, 

4. Peso específico 

5. Punto de fusión, 

6. Punto de evaporación, 

7. Grupo ( l-VI I 1,0), 

8. Subgrupo (a,b,), 

9. Capas de electrones (K-Q) 


2. PASO : Análisis del problema 


El desarrollo de un programa que nos pueda proporcionar 
estas Informaciones no supone dificultades especiales. 


El usuario Indicará a través del INPUT el elemento del que 
desea obtener Informaciones y el programa pondrá a su 
disposición el registro completo asignado a este elemento, 
extrayéndolo de los DATAS mediante la Instrucción READ. 


Finalmente puede consultar si se desean obtener las mismas 
Informaciones de otro elemento químico. SI es así, puede 
accederse nuevamente al fichero mediante RESTORE. 
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3. PASO : Diagrama de flujo 

El diagrama de flujo es igual de sencillo que el 
análisis del problema efectuado en el párrafo 
anterior: 



no 


. 


Voss 


Capítu lo 
Punto 


3 : Química 

5 : Sistema periódico 


Página 

125 



4. PASO 


ÍO REM <QUIM-4> -ELEMENTOS- 

SO COLOR 1,15,15: SCREEN O-.UIDTH 40: CLS 

30 PRINT ” PROGRAMA PARA INDICAR CARACTERISTICAS” 

40 PRINT "FUNDAMENTALES DE LOS ELEMENTOS QUIMICOS.” 

50 PRINT ” PROF. DR. U. UOSS, 1984” 

55 REM NUMERO DE ELEMENTOS REGISTRADOS 
60 N-16 

70 DIM ES C SO } , ABS C 2 3 , GS C 4 3 , NS (13, S$ CID 

75 DIM ASC 1 3 , BSC203 

76 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT "PON EL NOMBR 
E EN MAYUSCULAS” 

77 PRINT : PRINT : PRINT : PRINT 

80 INPUT "Nombre del elemento ? : ” ; BS 

30 RESTORE 

100 FOR 1-1 TO N 

110 READ ES , ABS, O, G , W , SI , SE , BS , NS , 5$ 

120 IF ES-BS THEN 150 

140 PR I NT \ PRINT: PRINT "ELEMENTO NO REGISTRADO” : GOTO 280 
150 CLS 

160 PRINT ” ” ; ES : LOCATE 27.0.-PRINT ABS 

170 PRINT ” PRINT 

1B0 PRINT ” Número atñmico - ”;0 

190 PRINT ” Grupo ”; BS 

200 PRINT ” Subgrupa ” "i” ”;NS 

210 PRINT ” Capa “ ”;S$ 

220 PRINT: PRINT 

230 PRINT ” Peso atñmico - ”;G 

240 PRINT ” Peso especifico - ”;U 

250 PRINT: PRINT 

260 PRINT ” Punto fusiñn - ”;S1 

270 PRINT ” Punto evaporaciñn - ”;5E 

280 PRINT: PRINT: PRINT: INPUT ” OTRO ELEMENTO? CS/N3 ”;A 


ESO IF A$-”S” OR A$-”s” THEN CLS: GOTO BO 
300 PRINT : PRINT : PRINT ” FIN DEL PROGRAMA” 

310 DATA ALUMINIO , Al , 13 , 26 . 97 ,2.7, 658 , 2270 , I I I , B , M 
320 DATA BARIO ,Ba, 56, 137. 36, 3. 5 ,704, 1537, II, A, P 
330 DATA PLOMO, Pb, 82,207. 21, 11. 34, 327, 1690, IU.B.P 
340 DATA CLORO, Cl, 17,35.457,1 .557, -100, -34, UII.B.M 













HIERRO, Fe, 26,55. 85,7.86, 1525, 2450, UX I I , 0, N 
FLUOR, F, 9,19, .0017, -218, -187, UI I , B, L 
ORO , ñu , 79 , 197 , 19 . 25 , 1063 , 2677 , I , B , P 
HEL I O , He , 2 , 4 . 003 , . 000018 , -272 , -269 , 0 , 0 , K 

IODO, 1,53, 126. 92, 4. 942, 114, 184, UII, B, O 
CADMIO, Cá, 48, 112. 41, 8. 64, 321 ,770,11,8,0 
SODIO, Na, 11,22.991, .971,98, 880, I , A, M 
FOSFORO , P , 1 5 , 30 . 98 , 1 . 83 , 44 , 280 , U , B , M 
OX I GENO ,0,8,16, .0014,-218.7,-182.97,01,5 L 
AZUFRE , S, 16, 32 .066, 2.07, 112,444,01 , 8, fl 
HIDROGENO, H, 1, 1.008, .00009,-262,-252.78 I A K 
ZINC, 2n, 30, 65. 38, 7. 14, 419, 906, II, B, N* * * 
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Debe recordarse que e! fichero de datos de este programa 
contiene únicamente Í6 élementos. No obstante, puede 
descubrirse con facilidad el modo de variar el programa 
cuando quieran Incorporarse más de 16, o quizá todos los 
elementos químicos conocidos. 


5. PASO : Lista de variables 

A$ = Cadena de respuesta (sl/no) 

AB$ = Abreviación del elemento 
B$ = Campo para acoger el elemento buscado 
por el usuario 
E$ = Nombre del elemento 
G = Peso atómico 

G$ = Grupo a que pertenece el elemento 
1 = Indice variable 

N = Número de elementos del registro 
N$ = Subgrupo 
0 = Número de orden 

51 = Punto de fusión 

52 = Punto de evaporación 
W = Peso específico 
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6. PASO : Descripción del programa 

Línea 10-50 : Título 

Línea 60 : Indicación del número de elementos 

(este programa no Incluye todos los 
elementos químicos, sino sólo 16. 

Dado el caso habrá que modificar la 
línea 60 si se quieren tncorporar 
más DATAS) 

Línea 70-75 : Dtmensl onado 

Línea 76-80 : Demanda del elemento del que se desea 

Información 

Línea 90 : Restauración del registro (para even- 

tual mente repetir el proceso ver línea 
280) 

Línea 100-130: Lectura de los registros 

Línea 120 : SI se ha hallado el elemento, salto 

hacia 150 

Línea 140 : La línea 140 se alcanza únicamente 

cuando el elemento buscado no se en- 
cuentra en el fichero; después se sal- 
ta a I a I ínea 280 

Línea 150-270: Impresión de las Informaciones una 
vez borrada la pantalla 
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Línea 280-290 : Consulta si se desea consultar otro fi 

chero. En caso afirmativo borrar la pan- 
talla y saltar a la línea 80. En caso ne- 
gativo seguir en 300. 

Línea 300 : Finalización del programa 

Líneas 310 

y siguientes : Fichero en forma de DATAS 
7. PASO : Resultados 

Introduzcamos por ejemplo el elemento azufre, a lo cual e 
ordenador contestará: 

AZUFRE S 


Número atómico = 16 

Grupo - v 1 

Subgrupo - B 

Capa = M 

Peso atómico - 32.066 

Peso específico = 2.07 

Punto de fusión = 112 

Punto evaporación = 444 



OTRO ELEMENTO (S/N) 
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3 

Capítulo 4 : Física 


4.1 Consideración previa 


El campo de la física a nivel escolar, ofrece 
problemas similares a los que ya conocemos del capítulo 
dedicado a las matemáticas (ver capítulo 2). En todo caso, 
aquí deben considerarse ciertas partí cu lar Idades que nos 
obligan a hacer uso nuevamente de las posibilidades gráficas 
del ordenador. 

Por esta razón - y ampliando lo dicho en el capítulo 
anterior con respecto a los métodos de programación de 
gráficos - en esta Introducción profundizaremos otra vez en 
las Instrucciones gráficas del BASIC. 






fíf 
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En el submandato "modo" de esta Instrucción puede aparecer 
un valor situado entre 0 y 3, pudiéndose observar resultados 
muy diversos segán el valor que seleccionemos. 

Para nuestros fines basta con que distingamos entre las 
cuatro posibilidades siguientes: 

1. SCREEN 0 : Texto con 40x24 caracteres. 

2. SCREEN 1 Texto con 32x24 caracteres. 

3. SCREEN 2 : Conmuta al modo gráfico de 

alta resolución.- 

4. SCREEN 3 : Conmuta al modo de gráficos 

multicolores 

En el modo SCREEN 0 hay que Imaginarse la pantalla dividida 
en 40 columnas (0 a 39) y 24 líneas (0 a 23). 

La línea 0 está en la parte superior de la pantalla y, la 
columna 0, en el extremo Izquierdo de la misma. 
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En la modalidad SCREEN 1, ios caracteres tienen una anchura 
de 8 pixels, quedando dividida de este modo la pantalla en 
32 columnas y 24 líneas. Esto permite una más cómoda 
visual izad ón del texto. 

En la modalidad SCREEN 2, podremos hacer uso de los mandatos 
BASIC de trazado de gráficos, a estos efectos, la pantalla 
quedará dividida en una matriz de 256x192 pixels, numerados 
del 0 ai 255, y del 0 al 191, siendo la posición del pixel 
(0,0), la esquina superior izquierda de la pantalla o 
mon i tor . 

En modo SCREEN 3, disponemos de más libertad a la hora de 
dar color de. forma individual a cada pixel, aunque a costa 
de una menor resolución, ya que en esta modalidad, la unidad 
para el trazado de gráficos es un bloque de 4x4 puntos. La 
ubicación de los mismos se especifica utilizando los puntos 
0 a 255 para las coordenadas horizontales y 0 a 191 para las 
verticales. 

El color de la pantalla o monitor queda definido mediante la 
siguiente instrucción: 

Instrucción 18: 





nn COLOR (tinta), (papel ), (Borde) 

Los colores se seleccionan mediante el uso de códigos 
numéricos de acuerdo con la siguiente tabla: 


Código Color 


Código Color 


0 Transparente 

1 Negro 

2 Verde 


8 Rojo 

9 Rojo claro 

10 Amarillo oscuro 
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Cód i go 

Color 

Código 

Color 

3 

Verde claro 

1 1 

Amar! 1 Jo claro 

4 

Azu 1 oscuro 

12 

Verde oscuro 

5 

Azul claro 

13 

Magenta 

6 

Rojo oscuro 

14 

Gris 

7 

Azul celeste 

15 

B 1 anco 


Tanto los caracteres como los gráficos se visualizarán con 
el color especificado para la tinta. En modo SCREEN 0, el 
color del borde será siempre Igual al del papel. 

En el modo gráfico de gran definición el color podrá 
especificarse Individualmente para cada pixel, sin embargo, 
solo podrá darse un color por cada bloque horizontal de ocho 
pixels. (cada fila de pixels de la pantal le está dividida en 
32 bloques horizontales de 8 pixels) 

En el modo de gráficos multicolores no tenemos la anterior 
limitación, podemos dar un color diferente a cada bloque de 
4x4 pixels, aunque a costa de una menor definición en 
pantal la. 

Las Instrucciones para el trazado de gráficos son las 
siguientes: 

PSET, PRESET, LINE, CIRCLE, PAINT y DRAW 

Además, disponemos de un macro lengua je específico para el 
trazado de gráficos, cuyas Instrucciones se asemejan a las 
del lenguaje LOGO. 
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Instrucción 19: 

nn PSET (coordenada X, coordenada Y), (color) 

Marca un plxel en ¡as coordenadas y color especificado 

Instrucción 20: 

nn PRESET (coordenada X, coordenada Y), (color) 

Marca o borra un pfxel 
Instrucción 21: 

nn LINE (coordenada X, coordenada Y)-(coordenada X‘, 
coordenada Y' ), (color), (B ó BF) 

Traza una línea entre el punto de partida (X,Y) y el 
(X’,Y’). Además en caso de especificarse el submandato B, se 
trazará un cuadrado que conectará di agonal mente los dos 
puntos especificados. 

Cuando se especifique BF, se trazará un rectángulo con una 
línea recta que conectará diagonalmente los dos puntos 
especificados, y coloreará el área limítrofe. 

Instrucción 22: 

nn CIRCLE (X, Y ) , (rad lo) , (col or ) , (ángu lo inicial), 

(ángulo final ), (excentricidad) 

Traza un círculo, un sector circular o una elipse, de 
acuerdo con ¡os submandatos especificados. 
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Instrucción 21 


nn PAINT (X, Y), (color ), (color de la línea limítrofe) 

Colorea el área encerrada por la línea limítrofe. 

Instrucción 22 

nn DRAW "submandatos de gráficos" 

Traza gráficos de acuerdo con los submandatos 
especificados. Refiérase a su manual de programación para 
consultar los submandatos. 

4.3 Programas BASIC 


10 

REM 



20 

REM 

-CUADRADO- 

30 

REM 



40 

SCREEN 2; COLOR 

15,1 

,1 :CLS 

50 

LINE (100,60)- 

(150, 

1 30 ) , 1 5,BF 

60 

A$= 1 NPUT $ ( 1 ) 



70 

REM 



80 

REM -P 1 XEL EN 

SCREEN 3- 

90 

REM 



100 

SCREEN 3:CLS 



110 

PSET (128,96), 

10 



120 A$=INPUT$( 1 ) 






130 REM 

140 REM -RECTAS AL AZAR- 

1 50 REM 

160 SCREEN 2:CLS 

170 X*=INT CRNDU )*255) s Y— I NT (RNDÍ 1 )*191 ) :OINT(RND(1 )*15) 
180 LINE (128,96)~(X,Y),C 
190 GOTO 170 
200 REM. 

210 REM -Ejes de coordenadas- 

220 REM 

230 SCREEN 2 -.COLOR 15,1,1 :CLS 
240 DRAW "BMO, 95R255BM1 27, OD 1 91 " 

250 S$=INPUT$( 1 ) 

260 REM - "BMO, 95R255BM1 27, 0D1 91» - es el argumento de 
DRAW, y en este caso, tiene el siguiente significado: 
Pon el cursor de píxel en la posición X=0, Y=95j a 

partir de la misma, traza hacia la derecha una línea 
recta hasta la coordenada 255, es decir, traza hacia la 
derecha una línea recta de longitud = 256 píxels. Pon 
de nuevo al cursor de píxel en la posición X=127, 
Y=0; a partir de esta posición, traza hacia abajo una 
línea recta hasta la coordenada 191. No olvide que la 
pantalla en el modo de gran def intelón está dividida 
en un total de 256x192 = 49152 píxels, o unidades ele 
mentales de Imagen. 

Para conseguir que en el modo gráfico la Imagen se mantenga 
estable deberemos de hacer entrar al ordenador en un bucle 
sin fin. Para salir del mismo deberemos pulsar a ¡a vez CTRL 
y STOP. 




Este programa dibuja píxel a píxel y en diferentes colores 
un cuadrado. Fíjate que aunque se Intenta dibujar cada píxel 
en un color diferente, esto no es posible en el modo de gran 
resolución, lo tínico que se logra es colorear 
di ferenel adámente bloques horizontales de 8 píxels. 

10 SCREEN 2: COLOR 15,1,1:CLS 
20 F0R 3=80 T0 173 
30 F0R Z=47 TO 155 
40 F=l NT (RND (1 )*1 5 ) 

50 PSET (S,Z),F 
60 NEXT Z 
70 NEXT S 
80 A$=INPUT$( 1 ) 


El siguiente programa traza una trama reticular en la 
pantalla del televisor: 


10 SCREEN 2: COLOR 15,1,1:CLS 
20 F0R X=0 T0 255 STEP 5 
30 PSET (X,0) 

40 LINE -CX, 190) 

50 NEXT X 

60 F0R Y=0 TO 191 STEP 5 
70 PSET (0, Y) 

80 LINE -(255, Y) 

90 NEXT Y 
100 A$=INPUTS(1 ) 




i. 


El próximo programa traza aleatoriamente una trama de 
rectángulos de distintos tamaños. 
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10 

SCREEN 2: COLOR 15,1,1:CLS 


20 

F0R i=1 TO 140 


30 

S=RND( 1 )*215 


40 

S1=S 


50 

Z=RND ( 1 )*1 60 


60 

Z1=Z 


70 

L=RND(1 )*70 


80 

B=RND ( 1 )*55 


90 

PSET (S,Z) 


100 

S=S+L 


110 LINE -(S,Z) 


120 

Z=Z+B 


130 LINE -(S,Z) 


140 

S=S-L 


150 LINE -(S,Z) 


160 

Z=Z-B 


170 LINE -(S1,Z1) 


18G 

NEXT 1 



190 A$=INPUT$(1 ) 

El siguiente programa traza tres columnas horizontales de 
distintos colores: 

10 SCREEN 2: COLOR 15,1,1:CLS 
20 DRAW "BMÍO, 0C10R50D1 92L50U192» 

30 DRAW »8M107,OC8R50D192L50U192" 

40 DRAW "BM200 , 0C1 2R50D1 92L50U 1 92" 

50 PAINT (35,96), 10:PAINT (132,96) ,8:PA!NT (225, 96), 12 
60 A$= I NPUT $ ( 1 ) 



: 

i 







El siguiente programa dibuja un Rectángulo y sus diagonales: 

10 SCREEN 2: COLOR 1 5, 1 , 1 :CLS:KEY OFF 

20 DRAW "BM0,0R255D191L255U191M255, 1 91 BM255,OMO, 191 " 

30 A$= I NPUT $ ( 1 ) 

Este otro sirve para Ilustrar el uso de la sentencia CIRCLE, 
produciendo una serle de cónicas de forma aleatoria, y 
conformando en pantalla, un bonito efecto artístico. 

10 REM EJEMPLO DE LA SENTENCIA CIRCLE 

20 SCREEN 0:W IDTH 40:CLS 

30 COLOR 15,1,1 :KEY OFF 

40 LOCATE 11,12 

50 PRINT "PULSE UNA TECLA» 

60 A$=1NPUT$ ( 1 ) 

70 SCREEN 2:CLS 
80 F0R 1=1 T0 1000 
90 X=RND (TI ME) *255 
100 Y=RND(TIME)*191 
110 N=RND(TIME)*1 5 

120 CIRCLE (X,Y),RND(TIME)*40,N,,,RND(TIME)*2 
130 PAINT (X, Y ) ,N 
140 NEXT I 

1 50 LOCATE 11,12:? "FIN DEL PROGRAMA» 





El programa siguiente imprime en pantalla y con distintos 
colores, 1000 puntos. Se consigue de este modo un efecto 
semejante al que producen las estrellas en la esfera 
celeste. 

10 REM -ESTRELLAS- 
20 SCREEN 2:CLS 
30 FOR I =1 TO 1 000 ' 

40 X=255*RND ( 1 ) 

50 Y»191*RND<1) 

60 C=1 5*RND ( 1 ) 

70 PSET (X,Y),C 
80 NEXT I 
90 A$=INPUT$ ( 1 ) 

Podemos conseguir distintos efectos gráficos en pantal la 
mediante el programa siguiente: 

10 A=1 5:B=1 

20 60SUB 110 

30 A=2 :B=1 0 

40 G0SUB 110 

50 A=7:B=1 1 

60 G0SUB 110 

70 A=13:B=1 0 

80 G0SUB 110 

90 END 

100 A=6:B=4 

110 SCREEN 2:CLS 

120 FOR Y =60 T0 75 

130 FOR X=81 T0 173 

140 IF C=A THEN C=B ELSE C=A 

150 PSET (X, Y),C 

160 NEXT X 

170 NEXT Y 

180 RETURN 
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Habrás observado sin duda alguna, que en muchos de los 
programas que Ilustran este capítulo, aparece la Instrucción 
A$=i NPUT$ ( 1 ) . 

Esta instrucción tiene como misión retener el formato de 
gráficos de gran resolución. Induciendo al ordenador a 
permanecer en estado de espera, o mejor dicho, en un bucle 
sin salida, mientras que no se aprete una tecla cualquiera. 
Esta Instrucción pues, espera a que se Introduzca un 
carácter a través del teclado y mientras esto no ocurre, 
retiene la ejecución del programa en el ordenador. 

SI no Inducíésemos de algán modo al ordenador a entrar en 
estado -de espera o en un bucle sin salida, no lograríamos 
llegar a visualizar nada en cualquiera de los dos modos 
gráficos, ya que el ordenador pasa automáticamente a modo 
texto después de la ejecución de un programa. 

Se podría conseguir también el mismo efecto Incluyendo en el 
programa una línea del tipo: 

nn GOTO nn 

Lo que haría que el ordenador cayese en un bucle sin fin. 
Para salir del mismo será necesario provocar un BREAK 
mediante el uso de las teclas CTRL y STOP. 






2. PASO : Análisis del problema 

La relación antes descrita puede ser representada 
gráficamente (p.e. para D = 20): 

Fuerza D = 20 



5 10 Alargamiento 

s 


El programa BASIC a desarrollar, debe imprimir el 
gráfico correspondiente a diversos valores de la 
constante de muelle D en la pantal la, siendo necesario 
estructurar lo del modo siguiente: 

- Trazado de unos ejes de coordenadas, 

- introducción de un valor arbitrario para D, 

- impresión de una recta de constancia 
(ver arriba), 

- contestación a la pregunta referente al 
alargamiento del dinamómetro tras introducir 
un peso cualquiera. 









4. Paso : Programa 


10 REH PHYSICS/1 -DINAMOMETRO- 
20 SCREEN O: COLOR 1 , 15 , 15: UIIDTH 40:KEY OFF:CLS 
30 PRINT: PRINT ” PROGRAMA PARA ILUSTRAR GRAFICAMENTE LA” 
40 PRINT: PRINT ” LEY DE HQOKE . ” 

50 PRINT: PRINT: PRINT ” » 


BO PRINT ” PROF. DR . ÜJ . UOSS, 1984” 

70 PRINT ” " » 


80 CLOSE.-A-D-O 

90 LOCATE O , IB : INPUT ” Ualar de la constante elástica : 

D 

100 IF D< 1 THEN CLS: LOCATE 4, 11: PRINT "Constante elástica i 
ncorrscta” : GOSUB 510 

110 LOCATE O, 19: INPUT ” Fuerza aplicada al muelle : 

120 IF F>999 THEN CLS: LOCATE 5, 11: PRINT "Es malo hacer tant 

a fuerza": GOSUB 540 

130 IF F<-0 THEN 110 

140 SCREEN 2 .-COLOR 15, 1,1: CLS 

150 DRAW ”BM40 , 140R1E5BM40 , 14GU1408M40 , 141 ” 

160 DRAUI ”R1B5BM41 , 141U141 ” 

170 FOR X-41 TO 185 STEP 5 
180 FOR Y-20 TO 142 STEP 5 
190 PSET. CX, Y) , 11 
200 NEXT Y 
210 NEXT X 

220 FOR X-41 TO 185 STEP 20 

230 FOR Y-142 TO 146 

240 PSET (X, Y) , 15 

250 NEXT Y 

2B0 NEXT X 

270 FOR X-36 TO 41 

280 FOR Y-140 TO 10 STEP -20 

2S0 PSET CX.Y3.15 

300 NEXT Y 

310 NEXT X 

320 OPEN ”ERP : " FOR OUTPUT AS#1 
330 PSET C13, 149), 1: PRINT #1,”0,0" 

340 S-CF/D) 

350 LINE C41 , 141 )-C181 , 20) , 8 
360 LINE C41,140)-C1B0, 203,8 
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LINE <45, 141 3- <182, 203 ,8 

PSET <164, 1493 , 1 : PRINT #1 , USINB ;5 

PSET <206,1493, 1: PRINT #1, ”cm” 

PSET CO, 173 , 1 : PRINT #1,F 
PSET <13,03 , 1: PRINT #l,”cN” 

PSET <181,23,1: PRINT 
PSET <190,23,1: PRINT #1,D 

PSET <45, 1823,1: PRINT #1 , "Otra gráfica CS/N3 ? 

AS-INKEYS 

IF AS-”” THEN 450 

IF A$-”S” OR AS-”s” THEN 20 

SCREEN 0 : UIIDTH 40 .-COLOR 15,1,1 

LOCATE 11, 10: PRINT ”FIN DEL PROSRAHA” 

END 

TIME-0 

A-INT<TiriE/503 

IF A-2 THEN 20 ELSE 520 

TIflE-0 

A-INT<TINE/503 

IF A-2 THEN CLS : BOTO 110 ELSE 550 


5. PASO : Lista de variables 


Registro del reloj 

Cadena de respuesta (sl/no) 

Constante elástica 

Reloj del sistema 

Fuerza aplicada al muelle 

Recorr Ido del mué I I e 

Indices variables 
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6. PASO : Descripción del programa 

Línea 10-70 : Título 

Línea 80 : Cerrar canales e Inicial Izar variables 

Línea 90 : Introducción de la constante 

elástica D 

Línea 100 : Se comprueba que D es correcta 

Línea 110 : Demanda de la fuerza F. 

Línea 120-130: Se comprueba si F es correcta y si sobrepasa 
el formato de impresión. 

Línea 140 : Establece el modo de gráficos de gran defl- 

clón. 

Línea 150-310: Dibujo de los ejes y escalas del gráfico. 

Línea 320 : Apertura del canal de Impresión de caracte- 

res en modo gráfico. 

Línea 340 : Cálculo del recorrido del muelle. 

Línea 350-370: Trazado del gráfico. 

Línea 380-440: impresión de caracteres comp ¡ementar tos. 



Línea 450 


: Se espera la entrada de un carácter 
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Línea 460-470: Se establece sí se ha pulsado una opción u 

otra, SI se ha pulsado otra tecla o no se ha 
pulsado ninguna se vuelve a la línea 450. 

Línea 480 : Se vuelve al modo texto (40 columnas). 

Línea 490-500: Fin del programa. 

Línea 510 : Pone a cero el reloj del sistema. 

Línea 520-530: Bucle tempor Izador. 

Línea 540-560: Otro bucle tempor Izador (Se repite el mismo 
proceso que en las líneas anteriores 


7. PASO : Resultados 

Después de Introducir la Información INPUT, el programa 
genera un gráfico tal como el que ya presentamos 
esquemáticamente en una de las páginas precedentes. 

Después de una pausa, el programa pide la fuerza F y calcula 
el correspondiente recorrido de muelle. Sobra aquí cualquier 
ejemplo de cálculo (comparar con el t. PASO, que contiene ya 
un ejemplo). 
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4.5 El principio de Arquímedes 


1. PASO : Presentación del problema 


El principio de Arquímedes dice lo siguiente: 

El empuje que recibe un cuerpo sumergido en un fluido es 
Igual al peso del líquido que desplaza. 

Este principio describe el hecho conocido de que la fuerza 
necesaria para apretar hacia abajo un cubo vacío dentro de 
un líquido aumenta progresl vamente. 

A medida que un cuerpo se sumerge en un líquido, éste se ve 
sometido a una pérdida de peso aparente cada vez mayor, 
debida al creciente empuje. 

Presentamos a continuación un programa que,, basándose en 
este principio, calcula el volumen y la densidad (peso 
específico) de un cuerpo desconocido sumergido en un líquido 
conocido (p.e. agua), una vez se conoce su peso en el aire. 




•T 
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2. PASO : Análisis del problema 

Como en todos los demás problemas, aquí se procederá de 
acuerdo con el probado esquema: 

i? 

iy 

E = Entrada 

P = Proceso 

S » Salida 

| 

Es decir, en primer lugar estudiaremos qué Informaciones de 
entrada necesita el ordenador si debe resolver el problema 
antes formulado. Necesita lo siguiente: 

} 

I: 

El. El peso del cuerpo desconocido en el aire; 

E2. el peso aparente del cuerpo dentro del 
fluido, en el que se sumerge; 

E3. el peso específico del líquido utilizado 
para la comprobación. 

í 

j 

Cuando ya disponemos de estas Informaciones, puede 
determinarse mediante el proceso lo siguiente: 

VI. El empuje y el peso de la cantidad de líquido 
desplazada; 

V2. el volumen de esta cantidad de líquido; 

V3. el volumen del cuerpo desplazante de prueba; 

V4. El peso específico del cuerpo de prueba 
sumergido. 


i 

¡ 



Finalmente deberán Imprimirse como resultados los 
obtenidos en tos di timos puntos V3 y V4. 


3. PASO : Diagrama de flujo 



| 






4. PASO : Programa 

10 REM <PHYSlCS-2> -ARQU I MEDES- 
20 SCREEN 0: COLOR 15,1,1 r W I DTH 40:KEY 0FF:CLS 


30 7 " PRINCIPIO' DE ARQUIMEDES" 

40 ? " ir 

50 2 " PROF. DR. W. VOSS, 1984" 


60 ?:?:? ' 'Con el principio de Arquímedes pueden deter 

minarse el volumen y la densidad de un cuerpo desconocí 
do. Introduzca las siguientes Informaciones:" 

70 2:7:1 NPUT "PESO DEL CUERPO EN EL AIRE : ";PA 
80 2 : INPUT "PESO APARENTE DEL CUERPO EN EL FLUI 
DO : ";PF 

90 INPUT "DENSIDAD DEL FLUIDO : » íD F 

1 00 PP=PA-PF 

110 VD=PP/DF 

120 VC=VD 

130 D=PA/VC 

140 7:7:7 "LOS RESULTADOS DEL ESTUDIO SON :» 

150 7: 7 "Volumen del cuerpo = ";VD 
160 ?:? "Densidad del cuerpo = "-D 

170 ?:?:?:? » OTRA VEZ (S/N) 7» 

180 A$=|NKEYS 

190 |F A$="S" OR A$="s" THEN 20 

200 IF A$="N" 0RA$="n" THEN 210 ELSE 180 

210 7:?:?:? » FIN DEL PROGRAMA ":END 




I 



5. PASO : Lista de variables 

A$ = Variable de cadena para las respuestas sí/no 

PA = Peso del cuerpo en el aíre 

PF = Peso aparente del cuerpo en el fluido 

PP = Pérdida aparente de peso 

VC = Volumen del cuerpo 

VD = Volumen del líquido desplazado 

DF = Peso específico del líquido 

DC = Peso específico del cuerpo 


6. PASO : Descripción del programa 

Línea 10-60 : Título y anotaciones aclaratorias 

Línea 70-90 : Demanda de las Informaciones INPUT 

Línea 100-130 : Cálculos del resultado 

Línea 140-160 : Impresión de los resultados 

Línea 170-200 : Consulta si se quiere repetir el problema 
SI la respuesta es positiva ya a 20, si no 
va la 210 (END) 

Línea 210 : Final del programa 
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7. PASO : Resultados 

SI Introducimos por ejemplo las siguientes Informaciones 
INPUT: 

. El: Peso del cuerpo 

E2: Peso aparente del cuerpo en el fluido de 
prueba (a medir, con un dinamómetro) 

E3: Peso específico del fluido de prueba 
(agua) 

E.l programa genera estos resultados: 

LOS RESULTADOS DEL ESTUDIO SON: 

Volumen del cuerpo = 30 
Densidad del cuerpo = 2.3333333333333 
OTRA VEZ (S/N) ? 

j 

> 

i 


70 gr 


= 40 gr 


=1 
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4.6 Movimiento pendular 


1. PASO : Presentación del problema 

El movimiento pendular es un fenómeno físico 
básico que juega un papel imp< 
la óptica y en la electricidad. 


Los movimientos pendulares 
siguen una oscilación sinu- 
soidal, como se muestra en 
el esquema contiguo. 


Presentamos ahora un programa, 
que representa gráficamente 
una oscilación sinusoidal 
para diversas amplitudes (A) 
y periodos (P), que a su vez 
determinan la llamada 
frecuencia (F) de cualquier 
osci I ación. 






2. PASO : Análisis del problema 


Para el programa previsto deben Introducirse la amplitud y 
el periodo de la oscilación como Informaciones INPUT. 

El programa puede ocuparse entonces de que la oscilación 
sinusoidal "pase", recorriendo la pantalla de derecha a 
Izquierda, 


Fundamentalmente, el contenido del programa debe centrarse 
en la normal Izaclón de la amplitud y del período para 
aprovechar óptimamente la representación gráfica de la 
oscilación sobre la pantalla. 


Esto se consigue colocando unos ejes coordenados que dividen 
la pantalla en dos zonas del mismo tamaño. El cálculo de los 
parámetros de la oscilación está optimizado para que no se 
sobrepasen los límites de la pantalla. 

Como puede deducirse de la distribución que acabamos de 
realizar, seleccionamos el modo gráfico de alta resolución 
(ver Cap. 9), lo que nos permitiría operar con un margen de 
256*192 posibles parámetros. 

i 

f 


; 







Voss 

Capítulo 4 

Punto 6 

; Física 
: Péndulo 

Página 

160 

Colegio 




4-. PASO : 

Programa 



10 REM 

"PHYS/3" 

-PENDULO- 



20 COLOR 1,15,15: SCREEN OjWIDTH 40:KEY OFF:CLS:CLOSE 
30 ? "PROGRAMA PARA LA SIMULACION DE UN MOVI-" 

40 ? "MIENTO VIBRATORIO ARMONICO SIMPLE." 

50 2i?:? " PROF. DR. W. V(?SS, 1984" 

60 ?:?:?:?:?:? 

70 ? "Para salir del programa pulse CTRL+STOP" :?:?:? 

80 LOCATE 0,'1 7: INPUT » AMPLITUD DE LA OSCILACION : "jA 
90 IF A>75 OR A=0 THEN 80 

100 LOCATE 0,20: INPUT " PERIODO DE LA OSCILACION : ";P 

110 IF P=0 OR P>200 THEN 100 

120 IF P<20 THEN P$=.3141592655¿ ELSE PS»1 

130 SCREEN 2 : COLOR 7,1,1:CLS 

140 DRAW "BM24 , 95R200BM24 , OD 1 9 1 " 

150 OPEN "GRP : " FOR OUTPUT AS *\ 

160 PSET (1 0,93) , 1 :COLOR 15:? *1, "O" 

170 PSET (10,0), 1:? *\, "A" 

180 PSET (10, 183), 1:? *1 , "A" 

190 PSET (239,93),!:? #1 , "+" 

200 FOR T=0 TO 199 STEP PS 

210 Y=A*COS( <2*3.141 592654j4/P)*T) 

220 PSET (T+24, 95-Y ) ,9 
230 NEXT T 

240 PSET (62, 1 83) , 1 :C0L0R 15:? »*1, "01ra vez (s/n) ?" 
250 A$=1NKEY$ 

260 IF A$=" " THEN 250 

270 IF A$="S" OR A$="s" THEN 20 

280 IF A$="N" OR A$="n" THEN SCREEN O : LOCATE 10,12:? "F 
IN DEL PROGRAMA" ELSE 250 


• V* 


! 


1 
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6. PASO : 

Descripción 

del 

programa 


Línea 10-70 

: Título y 

acl 

ar aciones 



Línea 80-100 : 

Línea 120 : 

Línea 130 : 

Línea 140 : 

Línea 150 : 

Línea 160-190 : 


Demanda de informaciones INPUT 

Optimización de los parametros 
de P (período). 

Modo gráfico de gran definición y bo- 
rrado de la pantalla. 

Impresión de los ejes del gráfico. 

Apertura del canal de impresión de carac- 
teres en el modo de gran resolución. 

Impresión de caracteres en pantalla. 


Línea 200-230 : Bucle para determinar e imprimir la posi- 
ción de cada punto de la onda. El cálcu- 
lo matemático se rea tiza dentro de la lí- 
nea 210. 


Línea 240 : Impresión de "Otra vez...." en la parte 

inferior de la pantalla. 

Línea 250 : Espera a que se Introduzca un carácter. 

Línea 260-280 : Se determina que carácter se ha entrado 
desde el teclado. Si la respuesta es posl 
tlva se vuelve a reinicial Izar el progra- 
ma y se va a la línea 20. Si la respuesta 
es negativa se borra la pantalla y se Impri 
me "FIN DEL PROGRAMA» 
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7. PASO : Resultados 


4.7 Reproducción óptica 


Los resultados que ofrece este programa son análogos al 
croquis del 1. PASO, con i a diferencia de que este gráfico 
no es apaisado. 

Después de pedir los valores de la amplitud y el periodo de 
la oscilación, se produce un borrado de la pantalla, y 
aparecen en los ejes coordenados sobre los que se dibuja la 
sinusoide, que va desenvolviéndose paulatinamente. 

Cuando esta ha aparecido en su totalidad, el programa 
pregunta si se quiere repetir de nuevo el proceso. SI la 
respuesta es negativa, se borra el gráfico y aparece Impresa 
en la mitad de la pantalla la frase: "FIN DEL PROGRAMA". SI 
la respuesta ha sido positiva se vuelve a relnlclal Izar el 
programa. 


1. PASO : Presentación del problema 


Una lente convexa nos permite obtener la 
Imagen de cualquier objeto - tal como se muestra en la 
Ilustración siguiente: 



La cámara fotográfica funciona según este principio, 
así como también el ojo humano. 


Presentamos a continuación un^programa que calcula el 
tamaño de la Imagen y la escala de reproducción de una 
lente convexa para un tamaño del objeto, una distancia 
del mismo y una distancia focal de la lente dados. 
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2. PASO : Análisis del problema 

El programa a realizar necesita las siguientes Informaciones 
I NPUT : 


Página 

164 


1. Tamaño del objeto, 

2. distancia del objeto, 

3. distancia focal de la lente. 

Para resolver el problema necesitamos la I ¡amada ecuación 
óptica: 

1/f = 1/g + 1/b 
donde: f = distancia focal 

g = distancia del objeto 

b = distancia de la Imagen 

Despejando b en esta ecuación se obtiene: 

1 

b 

1/f-1/g 

-Se cumple también que la escala de reproducción A es Igual 


A = B/G = b/g 

SI el objeto a reproducir tiene por ejemplo un tamaño G - 20 
cm, puede determinarse también el tamaño de la Imagen con 
ayuda de las Igualdades citadas: 


B = (b*G)/g, porque B/G = b/g 
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3. PASO : Diagrama de flujo 
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in RFM "PHYS/4” —OPTICA— 

20 COLOR 15,1,1: SCREEN 0:UJIDTH 40:KEY OFF:CLS 

PRINT “ PROGRAMA PARA CALCULAR LA DISTANCIA, EL" 
lo PRInÍ "TAMA” ; CHRSC 165 3 ; ”0 Y LA ESCALA DE REPRODUCCION D 

SO^PRINT ” IflABEN PRODUCIDA POR UNA LENTE CONVEXA.” 

Í0 PRINT CHRSC 127 3 : PRINT : PRINT ” PRQF ■ OR . U. UOSS, 

7O 90 PRINT:PRINT:PRINT:PRINT:PRINT ” Introduce los datos 

8¿ BU PR?N??PRINT: PRINT : PRINT : PRINT : PRINT " -TAHA ” ; CHRSC 1 

ASI * "O DEL OBJETO “ ” : LOCATE 30,17: INPUT S 

90 ’ PRINT: INPUT " -DISTANCIA AL OBJETO - ";G U 

100 PRINT: INPUT ” -DISTANCIA FOCAL - ” ; F 

110 CLS 

120 BW-l/Cl/F-l/SU:) 

130 A-BU/BU 
140 B-CS*BW3/SW 

145 BW-INTCBU*100+. 53/100 

146 A"* I NT C A* 100+ .53/100 

ss sstí&íSís? - 

160 PRINT: PRINT: PRINT " -Distancia focal 
170 PRINT: PRINT ” -Tama" ; CHRSC 1643 ; ”o del objeto 

18Ó 6 PRINT: PRINT " -Distancia al objeta - ” ;BU 

190 PRINT: PRINT : PRINT RESULTADOS. - 

200 PRINT: PRINT: PRINT ” -Escala de reproducción 
210 PRINT: PRINT ” -Tama” ; CHRSC 164) ; "o de la imagen 


’ ; F 


■;A 


; o 

220 PRINT:PRINT ” -Distancia 

225 PRINT: PRINT 

230 PRINT: PRINT ” 0TR0 

240 AS-INKEYS 
250 IF AS-”” THEN 240 
260 IF A$-"S” OR AS-”s” THEN 10 
FIN DEL PROBRAMA” 


a la imagen - ” ; BU 
CALCULO CS/N3” 


ELSE PRINT : PRINT : PRINT 


6. PASO : Descripción del programa 

Línea 10-70 : Título y aclaraciones 

Línea 80-105 : Demanda de las informaciones INPUT 

Línea 110-140 : Borrado de la pantalla y cálculos 

Línea 145-147 : Redondear a dos posiciones decimales 

Línea 150-225 : Impresión de los resultados 

Línea 230-240 : Consulta si se desean repetir los 

cálculos y espera una respuesta des 
de el teclado. 


Línea 250-260 : Identifica la entrada que se ha pro 
ducldo desde el teclado y en su caso 
finaliza el programa. 

7. PASO : Resultados 

s. 

SI introducimos p.e. : G = 20 cm, GW = 300 cm, F » 15 cm, 
obtendremos : 


DATOS DE PARTIDA : 
-Distancia focal = 15 


-Tamaño del objeto 

= 20 

-Distancia al objeto 

= 300 

RESULTADOS : 


-Escala de reproducción 

- .05 

-Tamaño de ¡a imagen 

= 1.05 

-Distancia a la imagen 

= 15.79 


OTRO CALCULOS (S/NJ? 





1. PASO : Presentación del problema 

Cuando se aplican dos -fuerzas sobre un punto 
común, se obtiene una fuerza reultante, que es la 
diagonal del Mamado paraleiogramo de fuerzas, como 
muestra el esquema siguiente: 



En el programa que sigue se efectúa la representación 
gráfica del paraleiogramo de fuerzas para cualquier 
constelación posible de dos fuerzas y se calcula la 
fuerza resultante F3. 
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2. PASO : Análisis del problema 

El punto de aplicación de ambas fuerzas debe emplazarse en 
el centro del sistema de coordenadas definido (95,95). 

Se introducen las fuerzas F1 y F2, que en primer lugar se 
optimizarán de modo que el espacio de la pantalla resulte 
suftciente Incluso en una situación poco favorable. 

Deben Introducirse además los ángulos W1 y W2 con los que se 
aplican Jas fuerzas F1 y F2 en el punto de aplicación. 

Con ayuda del teorema de Pitágoras y de las relaciones entre 
ángulos del triángulo rectángulo pueden calcularse los 
extremos de las componentes vectoriales de las dos fuerzas • 

i 

SI se conoce la posición de C puede calcularse asimismo la. 
fuerza R resultante de F1 y F2 (teorema del coseno). 

3. PASO : Diagrama de flujo 

Aquí puede prescindlrse del diagrama de flujo. 





10 REM "PHYS/5 "-REGLA OEL PARALELOSE AHO- 
20 SCREEN O : UJIDTH 40: COLOR 1,15,15:KEY OFF.-CLS 
30 PRINT "PROGRAMA PARA ILUSTRAR LA REGLA DEL PARALELOGRAM 
O . ” : PRINT 

40 PRINT ” ” 

50 PRINT ” PROF. DR . ÜJ . UOSS, 19B4 

GO PRINT” PRINT: PRINT 

70 PRINT: PRINT 

SO INPÜT ” -Primera fuerza F1 - ”;F1 

SO PRINT: INPUT " -Segunda fuerza F2 - ” ; F2 

100 PRINT: PRINT: PRINT "PONGA LOS ANGULOS DE APLICACION DE A 
MBASFUERZAS EN GRADOS C0-3603 PRINT: PRINT: PRINT 
110 INPUT ” -Angulo de aplicacifin de F1 - ";W1 
120 PRINT: INPUT ” -Angulo de aplicacifin de F2 - ” ; W2 
130 SCREEN 2: COLOR 15,1,1:CLS 
140 REM 

150 REM TRA2AD0 DE LOS EJES 

160 REM 

170 FOR X-0 TO 191 STEP 2 
ISO PSET CX, 953,9 
ISOsNEXT X 

200 FOR Y-0 TO 191 STEP 2 
•210 PSET C95, Y3 , 9 
220 NEXT Y 
230 REM 

240 REM OPTIMIZACION DE LA POSICION 
250 REM 

260 A-CF1/ CF1+F23 3*91 
270 B-CFB/ CF2+F1 3 3*91 
280 REM 

290 REM CALCULO DE LOS EXTREMOS 

300. REM 

310 AX-FIXCA*C0SC~CW1*3. 14163/1803 3 
320 AY-FIXCA»SINC-CW1»3. 14163/1803 3 
330 BX-FIXCB*C0SC-CUJ2*3. 14163/1803 3 
340 BY“FIXCB*SINC-CUI2*3. 14163/1803 3 
350 REM 

360 REM REPRESENTACION FUERZAS 

370 REM 

380 LINE C95 , 953-C9S+AX , 95+AY3 , 13 



390 LINE C95 , 95 3-( S5+BX, 95+BY3 12 
400 RX-AX+BX 
410 RY-AY+BY 

420 LINE C95 , 953-C95+RX, 95+RY3 , 15 
430 LINE C35+RX , 35+RY3-(S5 + AX , 95+ AY 3 , 6 
440 LINE C95+RX, 95+RY3-C95+BX , S5+BY3 6 
450 OPEN ”GRP : " FOR OUTPUT AS #1 

460 PSET C208, 03,1: PRINT #1, ” ” 

470 PSET C208, 103,1: PRINT #1, "COLOR” 

480. PSET C208,203,l: PRINT #1, » 

430 PSET C200, 603,1: PRINT #1, "Fl-C-13” 

500 PSET C200, 303,1: PRINT #1, "F2-C-12” 

510 PSET C200, 1203,1: PRINT #1, “R -C-15" 

520 PSET C208, 1683,1: PRINT #1, "PULSA” 

530 REM 

540 REM TEMPOR I ZADOR 

550 REM 
560 TIME-0 
570 A-TÍME 

580 IF A<200 THEN 570 
530 AS-INPUTSC13 
600 REM 

610 REM CALCULO DE LA RESULTANTE 
620 REM 

630 SCREEN 0:ÜJIDTH 40: COLOR 1,11,11:CLS 
640 W-W1-U2 

650 UI-180-UJ: U-CUI/1803*C3 . 1415926S4#3 
660 R-SQRCF1»F1+F2*F2-S*F1*F2*C0SCUI) 3 
670 LOCATE 15,3:PRINT "RESULTADOS:” 

680 LOCATE O, 8: PRINT "Primera fuerza - "jFl:” Angulo - 
W1 ’ 

690 LOCATE 0,10:PRINT "Segunda fuerza - ”;FH:” Angulo - ” 
;U2 

700 LOCATE 0,14:PRINT "RESULTANTE - ”;R 
710 LOCATE 13 , 20 : CLOSE : PRINT "OTRA UEZ CS/N3 ” 

720 AS-INKEYS 

730 IF AS-" ” THEN 720 

740 IF AS-”S” OR AS-”s” THEN 10 

750 IF A$-”N” QR A$-”n” THEN 760 ELSE 720 

760 COLOR 15, 1,1:CLS: LOCATE 1Ó,12:PRINT "FIN DEL PROGRAMA”: 
END 





5. PASO : Lista de las principales variables 

F1 = Primera fuerza 

F2 = Segunda fuerza 

R » Resultante 

X = Se usa en el cálculo de ésta coordenada 

Y = Se usa en el cálculo de ésta coordenada 

A = Magnitud auxiliar de optimización 
B = Magnitud auxiliar de optimización 
W = W1-W2 

W1 = Primer ángulo de aplicación 
W2 = Segundo ángulo de aplicación 

6. PASO : Descripción del programa 

Línea 10-70 : Título 

Línea 80-120 : Introducción de los datos de partida 

Línea 130-220 : Trazado de los ejes coordenados 

Línea 230-270 Optimización dé las fuerzas para que no 
excedan los límites de la pantalla. 


¡ 

' 



Línea 280-340 : cálculo de las coordenadas de los extre- 
mos de las fuerzas. 

Línea 350-390 : Trazado en pantalla de las dos fuerzas. 

Línea 400-410 : Cálculo de las componentes de la resul- 
te. 

Línea 420-440 : Trazado de la resultante y líneas auxi- 
1 1 ares. 

Línea 450 : Apertura del canal de Impresión de carac- 

teres en modo gráfico de alta resolución. 

Línea 460-520 : Impresión de etiquetas en pantalla 

Línea 530-580 : Bucle temporizador (Reloj) 

Línea 590 : Espera la entrada de un carácter 

Línea 630 : Vuelta al modo texto y borrado de pantalla 

Línea 640-660 : Cálculo de la fuerza resultante. 

Línea 670-700 : Impresión de los resu I tados del problema 

Línea 710 : Pregunta si se desea repetir el programa 

Línea 720-750 : Se espera e Identifica que carácter se ha 
tecleado 

Línea 760 : Fin del programa 

7. PASO : Resultados 

En vista del esquema del 1. Paso, prese i nd Iremos aquí de 
ofrecer resultados. 




4.9 La Ley de Ohm 


1. PASO : Presentación del problema 

La Ley de Ohm se cumple en aquellos conductores 
eléctricos en los que la corriente crece proporcíonalmente a 
la diferencia de potencial. 

Esta Ley dice lo siguiente: 

dlf. de pot. 

- constante = R 

Intensidad 

La magnitud R se denomina resistencia eléctrica del 
conductor. 

En el programa siguiente se calcula para cada par de valores 
(dlf. de pot.. Intensidad, resistencia), la tercera 
magnitud. 


2. PASO : Análisis del problema 

El programa que nos ocupa no ofrece ninguna dificultad desde 
el punto de vista matemático. 
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3. PASO : Diagrama de flujo 



Demanda de 
I y V , 


V=R*I 


No 

















10 REM "PHYS/6” -LEY DE DHfl- 

20 COLOR 15, 1,1: KEY OFF : SCREEN 0:U1IDTH 40: CLS 

30 PRINT "PROGRAMA PARA MOSTRAR LAS RELACIONES EN-TRE LA R 

ESISTENCÍA, LA DIFERENCIA DE PO-TENCIAL Y LA INTENSIDAD.» 

40 PRINT: PRINT: PRINT ” PROF . DR. tí. UOSS, 19B4”:PR 

INT 

50 PRINT: PRINT: PRINT » SELECCIONE LOS DATOS DE TRABAJO 
60 PRINT: PRINT: PRINT 

70 PRINT DIF. DE PDT . E INTENSIDAD.... C15” 

80 PRINT : PRINT DIF. DE POT . Y RESISTENCIA C25” 

90 PRINT 

100 PRINT ” — INTENSIDAD Y RESISTENCIA C35" 

IOS PRINT : PRINT: PRINT : PRINT 

110 LOCATE 8, 22: PRINT "Introduzca un número” : AS- INKEYS 
120 IF A$-”l ” OR AS— ”2” OR AS-”3” THEN 130 ELSE 110 
130 IF AS> ” 1 ” THEN 190 ELSE CLS 

140 LOCATE , *± s I NPUT ”DIF. DE POTENCIAL - “;U:LOCATE 35,4: 
PRINT ”v” 

150 LOCATE 4, B: INPUT "INTENSIDAD - »;I: LOCATE 35,8: 

PRINT "A” 

160 R-U/I:R-FIXCR*100+. 55/100 

170 LOCATE 4, 14: PRINT "RESISTENCIA - ”;R: LOCATE 35,1 

4: PRINT CHRSC2345 
1B0 GOTO 300 

190 IF AS- "3” THEN 250 ELSE CLS 

200 LOCATE 4,4: INPUT "DIF. DE POTENCIAL - ";U:LOCATE 35,4 
: PRINT ”v” 

210 LOCATE 4,8: INPUT "RESISTENCIA - ” ; R ; LOCATE 35, B 

: PRINT CHRSC234) 

220 I-U/R: I-FIXC 1*100+ .55/100 

230 LOCATE 4, 14: PRINT "INTENSIDAD - I : LOCATE 35, 

14: PRINT "A” 

240 GOTO 300 

250 CLS : LOCATE 6,4: INPUT "RESISTENCIA - ”;R:LQCATE 35 

,4: PRINT CHRSC2345 

260 LOCATE 6, B: INPUT "INTENSIDAD - "; I : LOCATE 35,B:P 

RINT "A” 

270 U-R»I:U-FIXCU*100+. 55/100 
2B0 LOCATE 6, 14 .-PRINT ”DIF. DE POTENCIAL - 




;U: LOCATE 35,14 
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Línea 120 : 

Línea 130 : 

Línea 140-150 : 
Línea 160-170 : 
Línea 180 : 


Solo acepta las opciones 1, 2 y 3 

SI A$ es mayor que 1, proseguir en 
la línea 190, sino borrar pantalla 

Introducciones de acuerdo con A$=l 

Cálculos e Impresión del resultado 

Sa Ito a la I ínea 300 


Línea 190-240 : Cálculos Iguales a los anteriores, 
pero para A$ = 2 


Línea 250-290 : Cálculo análogo, pero para A$ = 3 

Línea 300-330 : Consulta si se desean más cálculos 

En caso afirmativo borrar la pantalla 
y volver a la línea 10 

Línea 340 : Final del programa 

7, PASO : Resultados 


SI seleccionamos el punto 1 del mend, el programa nos pedirá 
la diferencia de potencial y la Intensidad. SI en respuesta 
Introducimos, por ejemplo, el valor 220 para la diferencia 
de potencial y el valor 11 para la Intensidad, obtendremos 
el siguiente resultado: 


RESISTENCIA ; 20 
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Capítulo 5 : Lenguas 


5.1 Consideración previa y más BASIC 



Los ordenadores pueden cumplir también Otiles 
servicios para el aprendizaje y el repaso de Idiomas 
extranjeros. No se trata aquí de presentar cursos completos 
de idiomas (por ejemplo, para aprender Inglés), porque esto 
superaría ampliamente el marco y el nivel de este libro - 
además, estos "programas completos" pueden adquirirse ya en 
los comercios a precios relativamente asequibles. Nos 
Interesa mucho más el confeccionar programas sencillos, que 
puedan servirle de ayuda al escolar a la hora de aprender 
Idiomas. 

Se consideran aquí en primera línea aquellos programas que 
facilitan el aprendizaje de vocablos o que proporcionan 
traducciones, ahorrándonos así la consulta de diccionarios. 


MAS CALCULOS (S/N) 
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No obstante, para este tipo de programas resultan necesarias 
algunas Instrucciones BASIC nuevas. 

A menudo no será Gtll poder separar determinados segmentos 
del programa principal para poder saltar a los mismos mas de 
una vez. 

Estos programas parciales se denominan subrutlnas. El salto 
del programa principal a la subrutlna requiere la siguiente 
Instrucción: 

Instrucción 21: 

nn GOSUB mm 

Esta Instrucción provoca un salto a la subrutlna que 
comienza en la línea mm. 







1. PASO : Presentación del problema 

En este primer ejemplo presentamos un programa 
que, tras Introducir un verbo en castel laño, ofrece su 
traducción al Inglés y las correspondientes formas 
Irreguf ares. 

Así, por ejemplo tras Introducir en el ordenador: 


Ir, 


éste nos contesta 


go werit gone (Ir). 


Para que el programa no resulte demasiado largo, nos 
¡Imitaremos a 20 verbos Irregulares. El lector descubrirá de 
Inmediato cómo debe completar el programa para obtener una 
panorámica .sobre todos los verbos Irregulares Ingleses. 
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2. PASO : Análisis del problema 

En este programa deben prepararse verbos castellanos, sus 
traducciones ai Inglés y las formas Irregulares de estos 
verbos. 

Cuando la cantidad de Información es muy amplia, resulta 
aconsejable no leer las. Informaciones de partida tras cada 
comtenzo del programa, sino efectuar la lectura Interactiva 
de la Información requerida a partir de un fichero grabado 
en una dfskette convenientemente preparada. 

Esta posibilidad, que seguramente utilizarán los 
programadores más adelantados - por lo menos si disponen de 
una unidad de dlsk.ettes - no vamos a tratarla aquí. 

Así, tras cada Inicio del programa haremos que el usuario 
Indique el verbo acerca del cual quiere Información. A 
renglón seguido, el programa buscará en el fichero de datos. 
Una vez hallado el verbo, podrá visualizarse el 
correspondiente registro. 

SI el programa no hallase en su fichero el verbo 
Introducido, sería debido a ; 

- o bien el verbo no existe adn en el archivo 
de datos (en principio solo hemos registrado 
20 verbos) 

- o bien el verbo Introducido no es un verbo 
Irregular. 
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1Q REM "LENG/1 ” -UERBOS IRRE6 . ING.- 
?n COLOR 15,1,1: KEY OFF : SCREEN 0:WIDTH *iO:CLS 
30 PRINT ” PROGRAMA PARA LA IMPRESION OE UERBOS I 
40 PRINT ” RREGULARES INGLESES.” 

50 PRINT: PRINT : PRINT ^ ” __ JW . 19B * 

70 LOCATE O* 18 • PRINT ” El número de verbos existentes en 
esteprograma ' está limitado. Pueden efectuar-se ampliaciones 

alargando la lista de datas”; . 

80 PRINT ” CISnea 500 y siguientes!, y aumentando en la II 

3Q B LOCATE 5?E°TpRINt' "PULSE UNA TECLA PARA CONTINUAR” 

110 DIM^SCl! , DSC 15! , E1SC15! , E2SC 15! .E3SC15! ,USC15! 

1E0 CLS 

140 PRINT:PRINT:PRINT ” INTRODUCIR EL UERBO EN ESPA”;CHRSC1 

?5¿ : PRIN? E PR?N? L ”SE DESEAN SABER LAS FORMAS INGLESAS CUSE" 
160 PRINT: PRINT "MAYUSCULAS POR FAUOR!” 

170 LOCATE 11,15: INPUT "UERBO” ; US : CLS 

180 FOR 1-1 TO N 

130 READ DS,E1S,E2$,E3S 

200 IF DS-US THEN E30 

lio LOCATE O i B : PRINT ■ UERBO NO EXISTENTE EN EL FICHERO' O 
NO ”• LOCATE 15, 10: PRINT ” IRREGULAR” : GOTO EBO 

830 LOCATE 10, E: PRINT "UERBO : ” ; US ># 

240 PRINT: LOCATE 10, 6: PRINT "FORMAS INGLESAS : 

850 PRINT : LOCATE 12,10:PRINT E1S 

850 LOCATE 1E, 11: PRINT EES 

870 LOCATE 1E, 12: PRINT E3S 

880 LOCATE 10,18:PRINT "OTRA UEZ CS/N! 

830 A$-INKEY$ 

•^nn TF A$“”S” OR A$-”s” THEN CLS: GOTO 1HQ 

310 IF AS-”N" OR AS“”n” THEN CLS: LOCATE 11,1E: PRINT ”FIN DE 

L PROGRAMA” ELSE ESO 

500 DATA SER , BE , UAS , BEEN 

510 DATA HABER, HAUE , HAD , HAD 

580 DATA COMENZAR, BEGIN, BEGAN, BEGUN 
















J DATA 
) DATA 
! DATA 
I DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


TRAER, BRING, BROUGHT , BRQUGHT 
UENI R , COME , CAÍ1E , COME 
HACER, DO, DI D, DONE 
COMER , EAT , ATE , EATEN 
COMPRAR , BUY , BOUGHT , BQUSHT 
SENTIR, FEEL.FELT.FELT 
ENCONTRAR , F I ND , FOUND , FOUND 
IR, GO, UENT, GONE 
PERDER , LOOSE , LOST , LOST 
HACER , MAKE , MADE , MADE 
LEER , READ , READ , READ 
CORRER, RUN, RAN, RUN 
DECIR, SAY.SAID.SAID 
UER , SEE , SAUI , SEEN 
SENTARSE, SIT,SAT,SAT 
HABLAR , SPEAK , SPOKE , SPOKEN 
COGER , TAKE , TOOK , TAKEN 


5. PASO : Lista de variables 

A$ : Variable de cadena para Introducciones 
D$ : Verbo castellano 
E1$ : Verbo Inglés, forma 1 
E2$ ; Verbo Inglés, forma 2 
* : Verbo Inglés, forma 3 

1 : Variable índice 

N : Número de registros 
V$ i Verbo elegido 



JLí ! 
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6. PASO : Descripción dei programa 

Línea 10-90 : Título, aclaraciones. Indicaciones 

acerca de cómo debe actualizarse el 
archivo de datos 

Línea 100 : Programa en “posición de espera". 

La realización del programa prosigue 
únicamente tras pulsar una tecla 

Línea 110 : Dlmensionado 

Línea 120 : Borrado de la pantalla 

Línea 130 : Indicación del número de verbos 

Línea 140-170 : Demanda del verbo elegido 

Línea 180-210 : Busca el fichero de datos correcto, 

en caso de hallarlo sigue en 230; 
en caso de no hallarlo sigue en 220 

Línea 220 : Mensaje para Indicar que el verbo 

no existe en el fichero de datos; 
seguir en I a I ínea 280 

Línea 230-270 : Impresión de las informaciones 

buscadas 

Linea 280-310 : Consulta si se desea otra Impresión; 

en caso afirmativo, borrado de I a 
pantalla y vuelta a la línea 140 

Línea 310 : En caso negativo final del programa 


Línea 500-690 : Datas 
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7. PASO : Resultados 

SI Introducimos por ejemplo en respuesta a i a demanda del 
ordenador en la línea 170: 

IR, 

El ordenador contesta: 

VERBO : IR 

FORMAS INGLESAS : 

G0 

WENT 

GONE 

OTRA VEZ (S/N) ? 

Puede verse claramente cómo hay que modificar el programa 
para completar la lista de verbos Irregulares : En la línea 
500 y siguientes habrá que añadir más Instrucciones DATA y 
en la línea 130 habrá que apuntar el nuevo número de verbos. 
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5.3 Vocablos franceses 


I. PASO : Presentación del problema 

En este ejemplo vamos a mostrar como puede 
encontrar aplicación el ordenador para sustituir la libreta 
de vocablos. Este contesta a la palabra francesa que le 
Introducimos con el equivalente castellano o viceversa (rige 
aquí la misma observación del punto 5.2 acerca de la 
utilización Interactiva de una memoria de dlskettes). 

Para que el programa no crezca demasiado, lo limitaremos a 
diez vocablos. Es decir, que sirve sólo a modo de ejemplo. 
Para aprovecharlo realmente, el lector deberá tener la 
paciencia de Introducir previamente en el ordenador todo su 
archivo castellano-francés. 

En los principios de funcionamiento del programa no hay 
ningún cambio. 
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2. PASO : Análisis del problema 
Con este problema podemos ser escuetos: 

Cuando el usuario Introduce una palabra castellana, el 
ordenador debe buscar entre su archivo de datos el 
correspondiente par de palabras castellano-francesas 
mediante la comparación con todos los vocablos castellanos 
(y sus correspondientes parejas en francés) de que dispone 
para, después, visualizarlas. 

Para que ambos "sentidos” de la traducción puedan ser 
cubiertos por un solo programa, primero hay que decirle al 
ordenador si se desea la traducción del castellano al 
francés o del francés al castellano. 

En caso de no poder traducir la palabra Introducida por no 
estar Incluida (aún) en la (muy) corta lista de vocablos, 
deberá visualizarse el correspondiente mensaje. 

Además, debe ofrecérsele al usuario la posibilidad de 
obtener otra traducción en la ejecución del mismo programa, 
si así lo desea. 
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10 REfl "LENG/2” #Castellanc-FrancSs# 

20 COLOR 15,1,1: SCREEN 0:UJIDTH 40: KEY OFF:CLS 
30 PRINT "DICCIONARIO CASTELLANO-FRANCES Y FRANCES” 

10 PRINT "-CASTELLANO.” 

50 PR I NT : PR I NT : PR I NT ” PROF . DR. ÚJ. UOSS, 1S84” 

SO PRINT ” ” 

70 LOCATE 0,11: PRINT "Este programa contiene ünicamente 10 
vo-cablos en su fichero.” 

BO PRINT : PRINT "Para ampliar el programa a” ; CHRSC1643 ; "ada 
m§s datas"; 

SO PRINT "a partir de la linea 500 y cambie el va-lor de N 
en la linea 130.” 

95 LOCATE 6,1S: PRINT "ESCRIBA SOLO CON MAYUSCULAS" 

100 LOCATE 4, 22: PRINT "SPulse una tecla para continuar” 

110 AS-INPUTSC13 
120 CLS 
130 N-10 

140 DIN A$C1 3 , UISC 153 , DSC 15) , FSC 153 

150 LOCATE 9, 3: PRINT "QUE TRADUCCION DESEA ?” 

ISO PRINT ” ” 

170 LOCATE 5, 9: PRINT "-CASTELLANO-FRANCES C13” 

180 LOCATE 5, 14: PRINT "-FRANCES-CASTELLANO C23” 

190 LOCATE 8,21: PRINT "Pulse la opciOn elegida” 

200 RESTORE 
210 AS-INKEYS 

220 IF AS-”1” OR AS-”2” THEN 230 ELSE 210 
230 IF AS- ”2" THEN 350 
240 CLS 

250 LOCATE 2,3:INPUT "DENE LA PALABRA CASTELLANA ” ; ÜJS 

260 FOR 1-1 TO N 

270 READ D$,FS 

280 IF DS-WS THEN 320 

290 NEXT I 

300 LOCATE 17, 11: PRINT US: LOCATE 4 , 13: PRINT"No consta en mi 
banco de datos . ” 


310 GOTO 450 

320 LOCATE 10,9 -.PRINT "* CASTELLANO: ”;D$ 
330 LOCATE 10, 14: PRINT ”* FRANCES : ”;FS 
340 GOTO 450 
350 CLS 



360 LOCATE 5,3:INPUT ”DENE LA PALABRA FRANCESA ” ; US 

370 FOR 1-1 TO N 

380 READ D$,FS 

390 IF FS-US THEN 430 

400 NEXT I 

410 LOCATE 17 , 11 : PRINT U$:LOCATE 4,13:PRINT “No consta en m 
i banco de datos . ” 

420 GOTO 450 

430 LOCATE 10, 9: PRINT ”* FRANCES : ” ; F$ 

440 LOCATE 10,14:PRINT ”* CASTELLANO: ” ; DS 
450 LOCATE 12, 21: PRINT "OTRA UEZ CS/N3 ” 

460 AS-INKEYS 

470 IF AS- ”S” OR AS-”s” OR A$“”N” OR AS-”n” THEN 480 ELSE 4 
60 

480 IF A$-”S” OR A$-”s” THEN CLS: GOTO 150 

490 CLS: LOCATE 12, 11: PRINT "FIN DEL PROGRAMA” : END 

500 DATA COMPRAR , ACHETER 

510 DATA HABER, AUOIR 

520 DATA IR, ALLER 

530 DATA UER.UO IR 

540 DATA BEBER, BO IRE 

550 DATA HACER, FA IRE 

560 DATA LEER, L IRE 

570 DATA COMER, MANGER 

580 DATA TOMAR, PRENDRE 

590 DATA FUMAR, FUMER 


5. PASO : Lista de variables 


A$ = Variable de cadena para Introducciones 
D$ = Vocablos castellanos 
F$ = Vocablos franceses 
I = Variable índice 
N = Número de registros 
W$ = Palabra elegida 
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6. PASO : Descripción de i programa 

Línea 10-100 : Título, aclaraciones etc. 

Línea 110-120 : Espera y borrado de la pantalla 

Línea 130-140 : Indicación del número de líneas de datos 
y dlmensl onado 

Línea 150-190 : Borrado de la pantalla y visual Izaclón del 
menú 

Línea 200-220 : Selección y restauración 

: Sí se Introduce 2 (francés-castellano), 
seguir en la línea 350 

: Introducción de un vocablo castellano 

Línea 260-290 : Busca el correspond lente juego de datos 

Línea 300-310 : SI la palabra buscada no se halla 

(todavía) en el archivo de datos y seguir 
en 450 

Línea 320-330 : Impresión de los resultados 

Línea 340 : Salto a la línea 450 

Línea 350-440 : Procedimiento análogo para la Introducción 
de la palabra francesa 

Línea 450-470 : Finalización del programa con posibilidad 
de repetir 

Línea 500—590 : Datas 


Línea 230 

Línea 250 
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7. PASO : Resultados 


SI pulsamos el número 1 en el menú, decidiéndonos por la 
traducción del castellano al francés, el ordenador nos 
pedirá una palabra castel lana. 

SI en respuesta Introducimos la palabra, el ordenador 
Imprimirá: 

CASTELLANO : TENER 
FRANCES : AV0IR 

OTRA VEZ (S/N) ? 



1. PASO : Presentación del problema 


De forma similar al punto anterior, aquí deben 
ponerse a nuestra disposición traducciones a partir de un 
determinado fichero de vocablos. Pero, en contraposición al 
programa precedente, el usuario es requerido para contestar 
a una palabra castellana elegida al azar por el ordenador 
con la palabra Inglesa correcta. 

Es decir, que presentamos un programa que funciona del mismo 
modo que el aprendizaje de vocablos con la columna de 
palabras en el idioma extr ajero tapada de antemano. 

Puede observarse rápidamente que este programa es también 
aplicable a otros Idiomas. 

Con el fin de reducir el tiempo de programación nos 
limitaremos a ofrecer solo diez vocablos a modo de ejemplo. 
El ordenador selecciona en cada caso un subconjunto 
aleatorio de! mismo, siendo Informado el usuario acerca del 
número de aciertos por serle. 
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2. PASO : Análisis del problema. 



i 


í 

| 







10 REM "LENG/3" -TEST DE U0CABL0S- 

80 COLOR 1S, 1 , 1 : SCREEN 0:UIIDTH 40 : KEY OFF : CLS 

30 PRINT "TEST DE UOCABLOS CASTELLANO/ INGLES O UI~” 

40 PRINT "CEUERSA.” 

50 PRINT: PRINT: PRINT ” PROF . DR . U. UOSS , 1SB4’’ 

60 PRINT " 

70 LOCATE 0,10: PRINT " Este programa contiene solo 10 voca 
blosen su Fichero.” 

80 PRINT ” Para ampliar el programa a” ; CHRSC 164) ; "adir más 
sentencias DATA a partir de la linea 500, ymodiFicar en la 
linea 180 el valor de N.” 

90 LOCATE 7, 18: PRINT "ESCRIBA SOLO EN NAYUSCULAS” 

100 LOCATE 6, BB: PRINT "Pulse una tecla para comenzar” 

110 AS-INPUTSClí 
ISO N-10 

130 DIN ASCII , DSC15D ,E$C15Í , UJSC153 , HSC155 
140 CLS 

150 LOCATE 1S, 3: PRINT "OPCIONES” 

160 LOCATE 15, 4: PRINT ” ” 


170 LOCATE 5,8: PRINT "-CASTELLANO/ INGLES Cll” 

180 LOCATE 5, 11: PRINT "-INGLES/CASTELLANO CB) 

130 LOCATE 13, BO: PRINT "PULSE 1 ñ B” 

BOO AS-INKEYS 

B10 IF AS— ”1 " OR AS-"B” THEN BBO ELSE BOO 
820 CLS 


830 LOCATE 1,11:INPUT "CUANTOS UOCABLOS QUIERE REPASAR ":A 

840 CLS 

250 RESTDRE 

260 K-Q 

870 1-1 

880 R-FIXCRNDC1)*N+13 
890 FOR J-l TO R 
300 READ D$,E$ 

310 NEXT J 

320 IF AS- ”2” THEN HS-DS:D$-ES:E$-H$ 

330 CLS 

340 LOCATE 7, 5: PRINT DS ; ” EQUIUALE A:" 

350 LOCATE 7,6 

360 FOR X-l TO LENCOS} 

370 PRINT 








m 380 NEXT X 

í¡!-} : 390 PRINT " ” 

I; 400 LOCATE 7 , 10: INPUT -RESPUESTA : ” ; UfS 

ilj! 410 IF UiS-ES THEN K-K+l : LOCATE 7,15:PRINT "MUY BIEN ! ” : BOTO 

¡j; 440 

íür 420 CLS; LOCATE 8, 5: PRINT ”HA COMETIDO UN ERROR” 

430 LOCATE 3,14:PRINT ”LA RESPUESTA CORRECTA ES: - ; ES 
lí 440 I-I+l 

si 450 IF I<-A THEN RESTORE: GOTO 490 

ti 460 KA-CK/A5*100:KA“FIXCKA»100+.5D/100 

ijí. 470 LOCATE 5,21:PRINT -RESPUESTAS CORRECTAS: ” ; KA ; ” 

N: ■ 480 END 

líi 430 TIME-0 

ñ 495 T-TIME 

p¡ 498 IF T> 125 THEN 280 ELSE 510 

500 DATA CORRER, RUN, ESCRIBIR.WRI TE 
P !• 510 DATA IMPRIMIR, PRINT, IR, GO 

M 520 DATA CORRER, RUN, ESCRIBIR, WRITE 

|i| 530 DATA IMPRIMIR, PRINT, IR, GO 

I ¡ 540 DATA SI, I F , SUBRUT I NA , SUBROUT I NE 

§ 550 DATA ORDENADOR, COMPUTER, CARACTER, CHARACTER 

¡¡I 580 DATA PANTALLA, SCREEN, TECLA, KEY 

II |í 570 DATA SI, IF, SUBRUT I NA, SUBROUT INE 

P ¡: 580 DATA ORDENADOR, COMPUTER , CARACTER, CHARACTER 

|i¡ j 590 DATA PANTALLA, SCREEN, TECLA, KEY 


5. PASO : Lís+a de variables 


f:| i. A = NCmero de vocablos a comprobar 

fÉ ! A$ = Cadena de respuesta 

|; D$ = Vocablos castellanos 

|| ; ES = Vocablos Ingleses 

U'í | I = Variable índice 

|;j ■ J = Variable índice 

: K = Número de respuestas correctas 

¡y KA = Proporción de respuestas correctas 

¡I N = Número de vocablos en el fichero 

fe R = Número aleatorio 

k- W$ = Respuesta 

i|i TIME - Reloj del sistema 




6. PASO : Descripción del programa 

Línea 10-100 : Título, aclaraciones y recordatorio 

de la eventual ampliación del pro- 
grama 

Línea 110 : Espera una entrada desde el teclado 

Línea 120 : Indicación del número de vocablos 

Incluidos en el fichero de datos, 
dlmenslonado 

Línea 130 : Dlmenslonado de las variables. 

Línea 140-220 : Borrado de la pantalla. Impresión 

del menú y demanda de la selección 

Línea 230 : Demanda del número de vocablos a 

repasar 

Línea 240-250 : Restauración y borrado de la pantalla 

Línea 260-270 : Contadores K e I a las posiciones Iniciales 

Línea 280 : Generación de un número aleatorio 

Línea 290-310 : Lectura de datas 

Línea 320-330 : Eventual cambio de Idioma 





Voss Capítulo 5 : Lenguas Página 

Punto 4 : Test de vocablos 202 

Colegio 


Línea 340-390 : Presentación de la pregunta 

Línea 400 : Petición de una respuesta 


Línea 410-430 

: Evaluación de la respuesta. Si es corree 
ta se Imprime mensaje de felicitación, si 
no la es, se sigue en la línea 420 y se Im 
prime la respuesta correcta. 

Línea 440-450 

: Vocablo siguiente 

Línea 460-470 

: Cálculo e Impresión de la cuota de aclei — 
tos 

Línea 480 

: Fin del programa 

L Titea 490-498 

: Subrutlna tempor Izadora 

Línea 500-590 

: Datas 


7. PASO : Resultados 

No hace falta ofrecer aquí los resultados. Aquellos que son 
visualizados durante el transcurso del programa resultan 
directamente de la descripción del mismo 
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5.5 Escritura en clave 


1. PASO : Presentación del problema 


Después de los ejemplos anteriores, que eran 
típ Icamente ' 'escol ares ' ' , para variar un poco presentamos un 
programa de carácter más bien lúdlco - la creación de uno 
escritura en clave. 

Este programa convierte tantas frases como queramos a través 
de un código, en frases Incomprensibles. 

Se trata simplemente de convertir los caracteres utilizados 
normalmente para escribir, en otros caracteres siguiendo uno 
regla que debe fijarse. El usuario podrá manipular la 
conversión de la forma que desee. 



2. PASO : Análisis del problema 

El análisis del problema no es excesivamente complicado: 

Se trata únicamente de enfrentar el juego de caracteres 
usual (A, B,C..., Inclusive ios símbolos especiales que 
queramos utilizar) al "juego de caracteres secreto". Ambas 
cosas pueden hacerse con variables de cadena adecuadas. 

Después de esto, la frase Introducida debe ser codlflcadade 
carácter a carácter. 

Para hacer factible esto deberemos utilizar dos funciones, 
hasta ahora no mencionadas: La primera función sirve para 
determinar la longitud de una cadena, es decir, el número de 
caracteres de que consta (Incluidos los espacios en blanco). 

La segunda función sirve para "arrancar" caracteres sueltos 
de una cadena dada. 

La función citada en primer lugar requiere el comando LEN 
(LEN « length * longitud). 

Por ejemplo, si el usuario Introduce estando en la modalidad 
directa: 

PRINT LEN ("COMPUTER") 
el ordenador contestará: 

8 
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Esta función nos ha servido para determinar que la cadena 
"Computer" consta de ocho caracteres. 

La segunda función se utiliza del modo siguiente: 

Cadena parcial = MI D$ (cadena de orí gen, número 1, número 2) 

En la cadena parcial se almacenan N caracteres (número 2) de 
la cadena de origen contados hacia la izquierda del carácter 
numero 1 

Ejemplo :- 

10 A$ = "COMPUTER" 

20 B$ = MI D$ (A$, 8,4) 

30 PRINT B$ 

Este programa Imprime el contenido del campo B$, compuesto 
por la serle de caracteres 
UTER. 

V 

De la misma forma podemos extraer también caracteres 
sueltos, usando como número 1 = posición del carácter que se 
quiere extraer; y como número 2 = 1 
20 B$ = MI D$ (A$,4, 1 ) 

Resultado : P 

Le aconsejamos consultar en su manual de programación el uso 
de ¡as funciones LEFT$, RIGTHS, STRINGS, y otras sobre la 
manipulación de cadenas a I fanumér leas exclusivas del 
.BAS IC-MSX. 
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ib REH #LENG/4# -ESCRITURA EN CLAUE^- 

50 COLOR 15,1,1: SCREEN 0:UJIDTH 40 : KEY OFF : CLS 

30 PRINT ’* PROGRAMA PARA CIFRAR CUALQUIER TEXTO." 

40 PRINT : PRINT: PRINT ” PROF . DR . U. U0SS,19B4" 

SO PRINT ” . . , , , 

60 LOCATE O, 9: PRINT "Para modificar la clave cambiar la ll 

nea”; 

80 PRINT "Para mantener en secreta el cfidigo defi-nir la c 

90 PRINT* ” mediante una sentencia I NPUT , cuyo contenido no 
debe" ; 

100 PRINT " ser dado aconocer . ” , ^ ___ 

110 PRINT ”La longitud del texto no podrá exceder los c.55 

caracteres . ” 

120 LOCATE 7,21 

130 PRINT "PULSE UNA TECLA, POR FAUOR 
140 AS-INPUTSC1D 
150 CLS 

160 DIM BSC303 , CSC 303 

170 B£“ ” ABCDEFGH I JKLMNOPQRSTUUUJX YZ 

180 CS- "QLJERTYU I OPASDFGH JKL ZX.C.UBNM” 

190 LOCATE 4 

200 INPUT "INTRODUZCA EL TEXTO A CODIFICAR 

AS: LOCATE 6,13 

210 L-LENCAS) 

220 FOR 1-1 TO L 
230 FOR J-l TO LENCBSD 

240 IF MIDSCAS, I , 1 Ü-MIDSCBS, J , 1 ) THEN 250 ELSE 270 
250 PRINT MIDSCCS , J , 1 5 ; 

260 GOTO 280 
270 ■ NEXT J 

280 NEXT I „ 

290 LOCATE 12, 22: PRINT "OTRA UEZ CS/ND 

310 IF AS-”5” OR AS-"s” OR AS-”n" OR AS””N” THEN 320 ELSE 3 

320 IF AS- "5” OR A$””s" THEN CLS : GOTO 190 

330 CLS: LOCATE 11, 12: PRINT "FIN DEL PROGRAMA” : END 
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5. PASO : Lista de variables 

AS = Texto a codificar 

B$ - Juego de caracteres 

C$ = Carácter cifrado 

I = Indice variable 

J = Indice variable 

L = Longitud del texto a codificar 

Z$ = Cadena de respuesta (S/N) 
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6. PASO : Descripción del programa 


Línea 10-110 
Línea 120-150 

Línea 160 
Línea 170 
Línea 180 
Línea 190-200 
Línea 210 

Línea 220-280 


: Impresión del título y aclaraciones 

: Interrupción del programa y borrado 
de I a panta I la 

: DImensJonado 

: Definición del Juego de caracteres 

: Definición clave 

: Demanda del texto a codificar 

: Determinación de la longitud del 
texto 

: Codificación 


220 : Comienzo del bucle I (para todos los 

caracteres del texto) 

230 : Comienzo del bucle J (para el juego 

de caracteres) 

240 : Verificación de que cada carácter 

del texto se corresponde con un 
carácter del juego; 
en caso negativo, seguir en- 270 
en caso afirmativo, impresión 
del correspondiente carácter cifrado 
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260 : Salto hacia la línea 280, es decir, 

proceso del siguiente carácter de i 
texto 

270 : Comprobación del siguiente Carácter 

del juego de caracteres 
280 : Siguiente carácter del texto 

Línea 290-320 : Consulta si se desea una nueva 
codificación 


Línea 330 : Final del programa 


7. PASO : Resultados 

'Los resultados de este programa dependen de la directriz 
seguida para codificar (ver línea 180 : C$) y del texto a 
codificar (ver línea 200 : AS). 

Sí introducimos p.e. en el programa el texto WERNER VOSS 
obtendremos: 

, TKFTK8XGLL 
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Capítulo 6 


Biología/Ecología 



6*1 Aspectos previos 


La aplicación del ordenador para problemas 
b lo lógico-eco lógicos se refiere especialmente a la 
simulación de procesos de desarro I lo y de crecimiento 
(naturalmente pueden confeccionarse también programas de 
consulta siguiendo el patrón de los del capítulo anterior). 
Estos desarrollos pueden visualizarse en la pantalla 
gráficamente o en forma de tabla. 
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6.2 Crecimiento exponencial 


1. PASO : Presentación del problema 

Una población Inicial de XO individuos tiene una 
tasa de crecimiento anual del R por ciento (R debe ser 
positivo). SI este crecimiento no choca con limitaciones 
externas - cosa muy Improbable a largo plazo - se produce 
un llamado crecimiento exponencial. 

El desarrollo de un proceso de crecimiento tan sencillo como 
éste, se simulará con un programa BASIC. 


2. PASO : Análisis del problema 

Para este programa hay que Introducir la población Inicial y 
la tasa de crecimiento anual. 

Después de un año se obtiene la población XI: 

'XI = XO + XO*R/iOO « X0*(1 + R/100) 

Después de dos anos se obtiene una X2: 

X2 = X1*(1 + R/100) « X0*(1 + R/100 )*C1 + R/100) 
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De lo que resulta; 

X2 = XO * Í1 + R/100) 2 " 

Generalizando, después de T años se cumple que: 

XT = XO * (1 + R/100) T 

Esta fórmula indica el algoritmo de cálculo para el 
correspondiente programa BASIC. 


3. PASO : Diagrama de flujo 
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REM ttECOL/1# -CRECIMIENTO- 

CQLDR 15 ,1,1: SCREEN 0:UIIDTH 40:KEY OFF:CLS 
PRINT "PRQERAMA PARA REPRESENTAR EN F0RÍ1A DE TA” 
PRINT "BLA EL CRECIMIENTO EXPONENCIAL . ” 

PRINT: PRINT: PRINT ” PROF . DR . Ul . UOSS, 1984 

LOCATE 8 ,6: PRINT . ” „ , 

LOCATE 2, 12: INPUT "POBLACION INICIAL...^. : „ i - 


80 LOCATE 2 , IB : INPUT "TASA DE CRECIMIENTO * ; R 

30 LOCATE 2 ,20: PRINT "NUMERO DE A” ; CHRSC 1651 ; ”0S 

LOCATE 31,20: INPUT T 

110 LOCATE 8, O: PRINT "A” ; CHRSC1B51 ; ”0S” ; ” POBLACIO 

N” 

120 LOCATE 8,1: PRINT ” ’V 

130 1-1 

140 XT”XO*C 1+R/100D ~ I 
150 XT-FIXCXT*100+. 51/100 

160 PRINT „ T .. » . Y T 

170 PRINT ” 5 1 > > XT 

130 IF^/lO-FIXCI/lOl THEN LOCATE 5, 22: PRINT "PULSE UNA TEC 
LA PARA CONTINUAR”: AS-I NPUTSC1) : CLS 
200 IF I<-T THEN 140 

210 LOCATE 13, 22: PRINT "OTRA UEZ C5/N1" 


220 AS-INKEYS 

230 IF AS- "5” OR AS-”s 

240 IF A$-”n” OR A$-”N 


THEN 20 

THEN 250 ELSE 220 


U A KJ Al I ' l l - 

250 CLS : LOCATE 12,'l2:PRINT "FIN OEL PROBRAMA' 


5. PASO 


Lista de variables 


A$ = Cadena de respuestas (sí /no) 
I = Variable índice 
R = Tasa de crecimiento en % 

XO = Población Inicial 

XT = Población en el momento T 
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6. PASO : Descripción del programa 


Línea 

10-60 

: Título 

Línea 

70-90 

: Visual Izaclón de las Informaciones 
INPUT que' necesita el programa 

Línea 

100-120 

: Impresión del título de la tabla 

Línea 

130 

: Preselección del primer- período 

Línea 

140-150 

: Cálculo de la población 

Línea 

160-170 

: 1 mpres l ón 

Línea 

180 

: Paso al siguiente per.fodo 

Línea 

190 

: Después de cada diez períodos se 


interrumpe el programa (es decir, 
cuando I es divisible entre 10); la 
continuación sófo es posible si se 
pulsa una tecla. 

Línea 200 : Mientras I sea menor o Igual a T, el 

programa debe , continuar (línea 140) 

Línea 210-250 : Final del programa, a menos que se 

pida un proceso más (entonces 
vuelta a la línea 20 después de 
borrar la pantalla) 







7. PASO : Resultados 

Sí por ejemplo Introducimos el valor 500 para la población 
Inicial y una tasa de crecimiento cfel 4 (%), además de un 
período de valor 8 (p.e. años), el programa genera la 
siguiente Impresión en pantalla: 

AÑOS POBLACION 


1 520 

2 540.8 

3 562.43 

4 584.93 

5 608.33 

6 632.66 

7 657.97 

8 684.28 

OTRA VEZ (S/N) ? 





1. PASO : Presentación del problema 

El crecimiento exponencial que ya presentamos en 
el punto anterior, no se da en la práctica, y si se da será 
por espacios de tiempo muy cortos. Deben considerarse ante 
todo efectos Inhibidores, que serán más acentuados cuanto 
mayores sean los valores de las variables en juego. 

Pensemos por ejemplo que una población con crecimiento 
exponencial choca muy pronto con limitaciones de nutrición, 
que dificultan más y más su posterior desarrollo. 

Este tipo de evolución "amortiguada" va a ser simulada en el 
próximo programa BASIC. 






2. PASO : Análisis del problema 

El análisis del problema lleva consigo una forma de 
resolución similar a la del punto anterior: 

También aquí se requieren valores de partida: 

XO = Población de partida 

RO = Tasa de crecimiento anual (en %) al comienzo 
del proceso de desarrollo 

En contraposición al ejemplo precedente, no partimos de la 
base de que la tasa de crecimiento es constante, sino que ' 
provocamos su reducción a medida que aumenta la población* 

Como la población aumenta con el paso del tiempo, mediante 
un esquema mental muy 'sencillo podemos deducir que la tasa 
de crecimiento se reduce progresivamente. Por ejemplo, 
podemos dividir entre dos la tasa cuando el tiempo se ha 
duplicado, dividirla entre cuatro cuando el tiempo se ha 
cuatrlpl Icado, etc. 

Claro que podemos establecer otros modelos matemáticos para 
simular este proceso de frenado, aunque esto no es de vital 
Importancia dentro de este contexto. 

El algoritmo que acabamos de describir puede expresarse 
matemáticamente de la forma siguiente: 
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XI = XO * (1 + R/D 


Es decir, en el período XI la población se obtiene a 
partir de la del período precedente, como en el 
ejemplo anterior; en cambio, la tasa de crecimiento se 
divide entre el índice variable I, de manera que 
aquélla se reduce a medida que aumenta I, es decir, a 
medida que pasa el tiempo. 


3. PASO : Diagrama de flujo 


Comienzo 














10 REM #EC0L/2# -CHECIMIENTO LIMITADO- 
20 COLOR 15,1,1: SCREEN 0:WIDTH 40.-KEY OFF-CLS 
30 PRXNT “ PROGRAMA PARA SIF1ULAR EN UNA TABLA UN - 
10 PRINT - PROCESO DE CRECIMIENTO FRENADO," 

50 PRINT : PRINT: PRINT ’* PROF . DR. UJ . UOSS ’9AH» 

60 LOCATE 8, 6: PRINT ” » ’ * 

70 LOCATE 2 , 12: INPLJT "POBLACION INICIAL •> . X Q 

80 LOCATE 2,16: INPLJT "TASA DE CRECIMIENTO % "’r 

30 LOCATE 2, 20: PRINT "NUMERO DE A” ; CHRSC 1655 • "OS 

LOCATE 31,20: INPUT T 

100 CLS 

mENTO 1 cL» A ” ;CHR$aBS>Í ”° S ” ; " POBLACION”; " CRECI 

120 LOCATE 0,1: PRINT ” . .. 

— — ll * 

130 1-1 

140 Xl-X0+X0*CR/n/100:Xl-FIXCXl*100+. 55/100 
150 2-CX1-X05/X0: 2-2*100: 2-FIXCZ-100+ . 55/100 
160 PRINT 

170 PRINT ; I ; ” ";X1;« » ;2 

180 X0-X1: I-I+l 

, X 5° F I/1 0"PIXC 1/105 THEN LOCATE 5,22:PRINT "PULSE UNA TEC 
LA PARA CONTINUAR” : AS- INPUTSC15: CLS 
200 IF I<-T THEN 140 

210 LOCATE 13, 22: PRINT "OTRA UE2 CS/N5» 

220 AS-INKEYS 

230 IF AS-”S” OR AS-”s” THEN 20 

240 IF A$-”n” OR AS-”N” THEN' 250 ELSE 220 

250 CLS: LOCATE 12, 12: PRINT "FIN DEL PROGRAMA” 


¡L». 


5. PASO : Lista de variables 

A$ = Cadena de respuesta (sí /no) 

I = Variable índice 

R * Tasa de crecimiento al comienzo del proceso 

T = Duración del proceso 

XO = Población Inicial 

XI = Población después de un periodo 

Z = Modificación de ja población 
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6o PASO : Descripción del programa 

Línea 10-60 : Título y aclaraciones 

Línea 70-100 : Demanda de los datos de partida y 

borrado de la pantalla 

Línea 110-120 : Impresión del título de la tabla 

Línea 130 : Fijación del contador de períodos 

Línea 140-170 : Cálculo de la población, del creci- 

miento e Impresión de los valores tras 
redondear a dos posiciones decimales 

Línea 180 : XI toma el valor de XO 

Línea 190 : Se controla que el número de datos en 

pantalla no supere el número de 10 

Línea 200 : Se evalúa si deben continuarse los cál- 

culos (mientras T'slga siendo más peque- 
ño que T después de sumarle 1) 

Línea 210-250 : Consulta si todavía se desean más cá 

culos, (en caso afirmativo vuelta a 20) 
y fin de! programa. 





7. PASO : Resultados 


$1 Introducimos como población Inicial el valor 500, y una 
tasa de crecimiento en el primer año del 4 %, además de 
Indicar que el proceso debe durar 8 años, obtendremos: 


AÑOS POBLACION CRECIMIENTO 


1 

2 

3 

4 

5 

6 

7 

8 


520 4 

530.4 . 2 

537.47 1.33 

542.84 1 

547.18 .8 

550.83 .67 

553.98 .57 

556.75 .5 


OTRA VEZ (S/N) ? 
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6.4 Contaminación ambiental 

I. PASO : Presentación del problema 

Las poblaciones en crecimiento, por regla general 
frenan ellas mismas su desarro I lo,' debí do a que deterioran 
sus condiciones de vida en grado creciente. 

Un ejemplo típico de ello es la contaminación ambiental 
creciente a lo largo de las diversas fases de 
Industlal Izaclón. 

Es decir, aquí también se produce un "frenado del 
crecimiento" - similar al del punto anterior - que modifica 
el crecimiento exponencial que conocemos del punto 6.2. 

En contraposición al punto anterior^, este "frenado" no opera 
de acuerdo con el tamaño de la población propiamente dicho, 
sino de forma Indirecta en dependencia de una variable que, 
a su vez, es proporcional a la población. 
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2. PASO : Análisis del problema 

En el primer período, la población resultante del período 0 
ya no se calcula 

XI = XO + XO * R/100 

sino: 


XI = XO + XO * (R/100 - P*B0) 

BO es el factor contaminación ambiental en el momento 0, que 
frena el crecimiento de la población por medio de un 
parámetro P adecuado (p.e. dentro del ámbito de P = 0.01). 

Lógicamente, necesitamos también una relación funcional que 
pueda expresar B1 (contaminación ambiental en el período 1) 
en dependencia de BO y de XO. 

Un posible ejemplo de relación sería: 

B1 » BO + A * XO 

Partiendo de un factor BO * 0, la contaminación aumenta a 
medida que crece la población, de acuerdo con un parámetro 
A, que debe dlmenslonarse adecuadamente (p.e. A = 0.015). 

De este modo se cumple el siguiente algoritmo: 


(1) 

81 

o 

co 

ii 

o 

< 

+ 

(2) 

XI 

o 

X 

II 

+ XO * (R/100 
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3. PASO : Diagrama de flujo 











10 REM #EC0L/3# -CDNT . AMBIENTAL- 

20 COLOR 15,1,1: SCREEN O.-UIIDTH 40:KEY OFF:CLS 

30 PRINT ” PROGRAMA PARA SIMULAR EN UNA TABLA UN ” 

40 PRINT ” PROCESO DE CRECIMIENTO FRENADO POR SU - 

50 PRINT ” PROPIA DINAMICA.” 

60 PR I NT : PR I NT : PR I NT ” PROF . DR . U. UOSS, 1384” 

70 LOCATE 8, 8: PRINT ” " 

80 LOCATE 2,12: INPUT "POBLACION INICIAL : ” ; XO 

30 LOCATE 2, 15: INPUT "TASA DE CRECIMIENTO * : ”;R 

100 LOCATE 2, 18: PRINT "NUMERO DE A” ; CHRSC 1653 ; "OS 

LOCATE 31, 18: INPUT T 

110 LOCATE 2,21: INPUT "FACTOR DE CONT . AMBIENTAL.: ”;P 
120 CLS 

130 PRINT ”A” ; CHRSC 1651 ; ”0S” ; ” POBLACION” j ” ” ; CHR 

SC2163 ; ” C 5í ? ” j ” CONT.” 

140 LOCATE 0,1: PRINT " ” ; ” ” 

. » >» 

150 I-l:A-.015:B0-0 

160 B1-BO+A*XO:X1-XO+XO*CR/100-P»B03 

170 Z-CXl~X03/XO:Z-Z*100:Xl-FIXCXl*100+.53/100:81-FIXCBl*10 
0+. 53/100 

180 Z"FIXCZ**100+ .53/100 

ISO IF XK-0 THEN LOCATE 10, 20: PRINT "POBLACION ELIMINADA”: 
GOTO 250 
200 PRINT 

210 PRINT I;” ”;X1;” ”;Z;” ”¡B1 

220 I-I+l 

230 IF I/10-FIXC 1/103 THEN LOCATE 5, 22 .-PRINT "PULSE UNA TEC 
LA PARA CONTINUAR”: AS-INPUTSC13 : CLS 
240 IF K“T THEN B0-B1 : X0-X1 : GOTO 1B0 
250 LOCATE 13,22: PRINT "OTRA UE2 CS/N3 ” 

280 AS-INKEYS 

270 IF AS-”S” OR A$-"s" THEN 20 

280 IF A$-”n" OR AS-”N” THEN 2S0 ELSE 260 

230 CLS : LOCATE 12,12:PRINT "FIN DEL PROGRAMA” 
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5. PASO LIs+a de variables 

A = Factor contaminación ambiental dependiente 
de la población 

A$ = Variable de cadena (si, no) 

BO = Contaminación ambiental de partida 

B1 = Contaminación ambiental en el siguiente período 

1 = Indice variable 

p = Factor contaminación ambiental 

R = Tasa de crecimiento anual 

T = Tiempo 

XO = Población de partida 

XI = Población en el siguiente período 

Z = Crecimiento de la población 

6. PASO : Descripción del programa 

Línea 10-70 : Título y aclaraciones 

Línea 80-110 : Demanda de las Informaciones INPUT 

Línea 120-140 : Borrado de la pantalla e Impresión de 

los encabezamientos de la tabla 

Línea 150 : Definición de otros parámetros 

Línea 160 : Cálculos para el siguiente período 

Línea 170-180 : Más cálculos 





Línea 190 : Sí la población calculada es menor 

o Igual a 0, Imprimir mensaje y sal- 
tar a la línea 250 


Línea 200-210 : Impresión de los resultados para los 
períodos 

Línea 220 : Incremento del índice variable I 

Línea 230 : Comprueba que no se Impriman excesivos 

datos a la vez en pantalla. 

Línea 240 : SI I es menor que T, X0 toma el valor 

de XI y 80 el de 81, y el programa 
vuelve a la línea 160 

Línea 250-290 : Consulta si se desea calcular más 

(en caso afirmativo volver a la lí- 
nea 20) y final del programa 
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7. PASO : Resultados 

SI a la población de partida le damos p.e. el valor 1000, al 
horizonte de tiempo el valor 8 años, a la tasa de 
crecimiento anual el 5 % y como- factor de contaminación 
ambiental tomamos el valor 0.01, obtendremos: 


AÑOS 

POBLAC 1 0N 

% 

C0NT. 

1 

1050 

5 

15 

2 

945 

-10 

30.75 

3 

701.66 

-25.75 

44.93 

4 

421.49 

-39.93 . 

55.45 

5 

208.85 

-50.45 

61.77 

6 

90.29 

-56.77 

64.9 

7 

36.21 

-59.9 

66.25 

8 

14.03 

-61.25 

66.79 


OTRA VEZ (S/N) 



I 
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Capítulo 7 : Geograf ía/HIstorla 


7.1 Consideración previa 


En este capítulo pueden confeccionarse programas 
similares a los del capítulo "lenguas", es decir, ante todo 
programas de test y de consulta. También aquí nos 
limitaremos a utilizar ficheros de datos de muestra, 
explicando el montaje y funcionamiento del programa. 

Para su utilización práctica, habrá que crear primero 
ficheros de datos completos y después introducirlos. Con 
este fin se completarán los DATAS, modificando el valor de N 
segGn el caso. 









1. PASO : Presentación del problema 

Presentamos un programa que puede utí I Izarse para 
aprender fechas históricas y para repasar estas fechas. 

Con este fin, el ordenador le presenta al usuario 
acontecimientos históricos, requlr lendole para que 
Introduzca la. fecha correcta de estos acontecimientos 
históricos. El usuario puede decidir cuántas preguntas le 
debe formular el ordenador por cada serle de tests. 

SI la respuesa del usuario es correcta, el ordenador le 
alaba; si, en cambio, la respuesta es Incorrecta, el 
ordenador consulta si quiere probar otra vez. En caso de 
negativa por parte del usuario, el ordenador se ocupa de 
Imprimir la respuesta correcta en pantalla. 





2. PASO : Análisis del problema 

La presentación del problema ya ha dado a entender 
claramente cómo debe procederse en este programa: 


Una parte del programa está destinada a Introducir 
Información, tamben se debe preguntar al usuario cuántos 
tests desea hacer y el programa debe analizar cada 
respuesta. Por lo demás no se presentan dificultades 
especiales. 






10 REM #GE0-H1# -FECHAS HISTORICAS 

COLOR 15 1.1: SCREEN 0:WIDTH 40 : KEY OFF : CLS 
30 PRINT "PROGRAMA PARA REPASAR FECHAS HISTORICAS 
40 PRINT : PRINT ” PROF . DR . W 

60 LOCATE OÍS: PRINT "Este programa utiliza como fichero 30 

7 Q 3 pRiNT "tos históricos seleccionados (especifica" 

60 PRINT "dos como sentencias DATA a partir dB la 
AO PRINT "línea 500 del programa). . 

100 PRINT: PRINT "En caso de que se quisieran utilizar mSs 
110 PRINT "datos, deberán a” ; CHRSC 1G4 ) ; ’adirse más DATAS u 

iIíTpRINT "biar el valor de la variable N en la 1Í-” 

130 PRINT "nea 150." 

140 LOCATE 12 ,22: PRINT "PULSE UNA TECLA 
150 A$“INPUT3>( 1 ) : CLS 
160 N“30 

180 L0CATE C 2^ Sprint’ ”CUANTAS C PREGUNTAS SE DESEAN REALIZAR 

?" „ -y 

iqn t OTATE 4 12 : INPUT "Por favor indicar un numero : \c. 

600 LOCATE 10,19: PRINT "ESCRIBA EN MAYUSCULAS” : GQSUB 440 
210 FOR I“1 TO Z 
220 CLS 

230 R-F I X CRNDC TIME) *N+1 ) 

240 RESTORE 
250 FOR J-l TO R 
260 READ JS.SS 

270 NEXT J „ „ 

280 LOCATE 14,1: PRINT "CUANDO FUE : 

290 LOCATE O, 5: PRINT SS rilM , iee , „ n ” - 1 OCAT 

300 LOCATE 7,10:PRINT "DIGA EL A” ; CHRSC 165) ; 0 : . LuChT 

310 5 ÍF°KS-JS T THEN LOCATE 11,17:PRINT "PERFECTO !":G0 
SUB 440: GOTO 380 _ -r-c rnoorrTn 


330 LOCATE 10, 22: PRINT "OTRO INTENTO CS/N) 
340 AS-INPUTSC1) 
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350 IF A$-”S” QR A$-”s” THEN CLS:GQTO 280 

360 LOCATE 2.18.-PRINT ”LA FECHA HISTORICA CORRECTA ES : 

370 GOSUB 440 
300 NEXT I 

wS ^“nkevÍ 22:PRINT -" UN test ms CS/NJ ” 

ÜiS ll ñs "” s ” DR AS-’-s” THEN CLS : BOTO 180 
420 IF AS-”n” OR AS-"N” THEN 430 ELSE 400 

440 RFM :LOCft «n n Í e 4- 12:PRINT ” FIN DEL PR °GRAMA” : END 
440 REM SUBRUTINA TEflPOR 1 2AD0RA 
450 TIME-Q 
4B0 A-TIME 

470 IF A>150 THEN RETURN ELSE 4B0 

52? ?? 9 ’ EL PRINCIPI ° DE EA SEGUNDA GUERRA MUNDIAL 
qpn 52? C0RDNñcI °N del EMPERADOR CARLOMAGNO 

520 DATA 1369, LA LLEGADA DEL HOMBRE A LA LUNA 

99 ° 5^? 1808 » LA GUERRA DE LA INDEPENDENCIA ESPAROLA 
22? l'iGG.EL DESCUBRIMIENTO DE AMERICA 
550 DATA 1936, EL COMIENZO DE LA GUERRA CIUTt F^Pocinr * 
SEO DATA 1871, EL ESTABLECIMIENTO DEL IMPERIO ALEMAN 
570 DATA 1812, LA LLEGADA DE NAPOLEON ANTE MOsS 
99 ? 52Í2 1975 » L * nuERTE DEL GENERALISIMO FRANCO 
Knn 52Í2 J 914 ’ 0 * INICIO DE LA PRIMERA GUERRA MUNDIAL 
52? 1469 , EL MATRIMONIO DE ISABEL Y FERNANDO 
cÍS 52? !494 , EL TRATADO DE TORDES ILLAS 

í?íf' f EL DESCUBRIMIENTO DEL OCEANO PACIFICO 
630 DATA 1519, LA DISTINCION DE EMPERADOR A CARI nq T 

|2° P nlfi 1S1S . EL desembarco de cortes en £ e “co 

650 DATA 1525, LA BATALLA DE PAUIA 

660 DATA 1598, LA MUERTE DE FELIPE II 

670 DATA 1558, LA MUERTE DE CARLOS I 

®?° 52? 1588, EL FRACASO DE LA ARMADA INUENCIBLE 

™ §SS iSS:5¡ DE LDS » «™ 

go S5S SSSSSSn'SSSü 6 gis “ 

78 ° 5 ñIñ 1933 » EL PIN DE LA GUERRA CIUIL 

740 DATA 1776, LA INDEPENDENCIA DE LOS ESTADOS UNtnnq 

750 DATA 1945, EXPLOSION DE LA PRIMERA BOMBA ATOMICA S 



Línea 10-150 : Título y aclaraciones 

Línea 160-170 : Número de líneas data y dlmensí onado 

Línea 180-200 : Demanda el número de test 

Línea 210-380 : Tests 

Línea 210-300 : Elección al azar de un 
acontecimiento histórico u demanda de la 
fecha como respuesta del usuario 
Línea 310-320 : Comprueba si la respuesta 
es correcta 

Línea 330-350 : Consulta si se desea otro 
Intento y según la respuesta procede en con 
secuencia 

Línea 360 : SI la respuesta ha sido ne 

gatlva se Imprime la respuesta correcta. 
Línea 370-380 : Llamada a subrutlna temporl 
zadora y vuelta a la línea 210. 

Línea 390-430 : Consulta si se desea otra rueda de test; 

en caso afirmativo, borrado de la pantalla 
y vuelta a la línea 180. En caso negativo, 
ftnal del programa. 

Línea 440-470 : Subrutlna temporl zadora 
Línea 500-790 : Datos 


7. PASO : Resultados 

No es necesario ofrecer aquí los resultados. Nos parece más 
razonable que el lector pruebe el programa considerando los 
contenidos y los DATAS modificándolo después de acuerdo con 
sus propios deseos. 







7.3 Las capitales de las Comunidades Autónomas 

1 . PASO : Presentac i ón del prob i ema 

El programa. que presentamos en este punto es 
también un llamado programa de entreno. El usuario debe 
responder a las preguntas que le formula el ordenador. Si el 
ordenador ofrece nombres de comunidades autónomas elegidos 
al azar, el usuario deberá introducir las capitales de estas 
comunidades; si en cambio el ordenador visualiza capitales, 
el usuario deberá citar las correspondientes comunidades. 

Llegados a este punto no hay problemas nuevos, de modo que 
podremos ser breves. Este programa tiene carácter ejemplar ; 

El usuario puede registrar fáctlmente nuevos datos en los 
OATAS, obteniendo así un programa de. consulta de aplicación 
general, que puede utilizarse para las más diversas 
asignaturas escolares. 









10 REd #GE0-H2# -COdUN I DADES AUTONOdAS- 
20 COLOR 15,1,1: SCREEN 0:WIDTH 40:KEY OFF:CLS 
30 PRINT ” PROGRAdA PARA REPASAR GEOGRAFIA 
40 PRINT : PRINT ” PROF . DR . UJ. U0S5, 19B4" 

50 LOCATE 8, 4: PRINT ” ” 

60 LOCATE O, 6: PRINT " E3ta programa, tras indicar una camu 
ni-” 

70 PRINT ” dad autfinoma, nos pregunta su capital y” 

80 PRINT ” al contraria.” 

SO PRINT: PRINT ” Este programa puede utilizarse para o-” 
100 PRINT ” tras Fines si cambiamos los datas a par” 

110 PRINT tir de la sentencia S00 y N en la linea” 

120 PRINT ” ISO.” 

130 LOCATE 12, 22: PRINT "PULSE UNA TECLA” 

140 AS” INPUTSC 1 D : CLS 
150 N-ll 

160 DIN LSC203 , SSC205 , ASC 1 D , CSC 101 , XSC20D 

170 LOCATE 2, 2: PRINT "DEBEN INDICARSE AUTONOdlAS 0 CAPI TALE 
S" 

180 LOCATE 4,8: INPUT "Por favor indique A 0 C : ” ; A$ 

190 IF AS-”C” OR AS-”c” THEN CS- ” AUTONON I A " ELSE C$-”CAPITA 
L” 

200 LOCATE 4, 15: INPUT "CUANTAS CONSULTAS : ”;Z 

210 LOCATE 10, 22: PRINT "ESCRIBA EN dAYUSCULAS” : G0SU8 460 
220 FOR 1-1 TO Z 
230 CLS 

240 R”FIXCRNDCTIdE)*N+l) 

250 RESTORE 
260 FOR J-l TO R 
270 READ LS,SS 
280 NEXT J 

290 IF A$-”C” THEN SltlAP LS.SS 

300 LOCATE 15,3:PRINT L$: LOCATE 15,4:F0R X-l TO LENCLSD : PRI 

NT ; : NEXT X 

310 LOCATE 9, 8: PRINT CS 

320 LOCATE 20,8: INPUT X$ 

330 IF XS-SS THEN LOCATE 11,17:PRINT "CORRECTO !”:G0 
SUB 460: GOTO 400 

340 LOCATE 2,15:PRINT "ES UNA LASTIdA, PERO NO ES CORRECTO 




350 LOCATE 10, 22: PRINT "OTRO INTENTO CS/N3 " 

360 AS-INPUTSC1) 

370 IF AS-"S” OR AS«”s” THEN CLS: GOTO 300 

380 LOCATE 2, 18: PRINT "LA RESPUESTA CORRECTA ES : ";SS 

390 GOSUB 460 

400 NEXT I 

410 LOCATE 9, 22: PRINT ” UN TEST MAS CS/N1” 

420 AS-INKEYS 

430 IF AS-”S” OR AS-"s” THEN CLS .-GOTO 170 

440 IF A$”"n” OR AS-”N" THEN 450 ELSE 420 

450 CLS: LOCATE 12, 12: PRINT "FIN DEL PROGRAdA" : END 

460 REM SUBRUTINA TEdPOR I 2A00RA 

470 TINE-0 

480 A-TINE 

490 IF A> 150 THEN RETURN ELSE 480 

500 DATA CATALURA, BARCELONA, dADRID.dADR ID 

510 DATA RIOJA.LOGRORO, BALEARES, PALdA DE dALLORCA 

520 DATA PAIS UALENC I ANO , UALENC I A , EU2CAD I , GASTE 12 

530 DATA CANTABRI A, SANTANDER, ANDALUCIA, SEUILLA 

540 DATA GALICIA, LA CORURA, ASTURIAS, GIJON 

550 DATA EXTREdADURA.C ACERES, CANARIAS, LAS PALdAS 

560 DATA dURCIA,dURCI A, CASTILLA-LA dANCHA , ?????? 

570 DATA CASTILLA-LEON, UALLADOLID, ARAGON, ZARAGOZA 
580 DATA ASTURIAS, 00 I EDO, NAUARRA , PAdPLONAk 
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5. PASO : Lista de variables 
A$ = Variable de cadena 

C$ = Variable auxiliar que según se elija toma 
el valor "capital" o "autonomía" 

H$ = Variable auxiliar para el cambio 

I = Indice variable 

J = Indice variable 

L$ = Autonomías 

M = Número de registros 

S$ = Capitales 

X$ ,<= Introducción hecha por el usuario 


6. PASO : Descripción del programa 

Línea 10-130 : Título y aclaraciones 

Línea 140 : Espera 

Línea 150-160 : Dimenslonado 

Línea 170-180 : Consulta si deben visualizarse 

autonomías o capitales 

Línea 190 : Si se eligen capitales, la variable 

auxiliar C$ pasa a ser "autonomía" 


Línea 200 


: Demanda del número de consultas 



Línea 410-490 : Final del prográma y subrutina temporl 
zadora 


Línea 220-400 : Formulación del número de 
consultas elegido 


240 : Elección al azar de un par de valores 
250 : Restauración del fichero de datos 
290 : SI se ha seleccionado C en el menú 
(ver 180-190), se. Intercambian' S$ y 
L$ 

300 : Impresión de la pregunta 
320 : Introducción de la respuesta por 
parte del usuario 

330 : En caso correcto, seguir en 400 
380 : Impresión de la respuesta correcta 


Línea 210 : Se ruega se escriba en mayúsculas y 

se salta a -la subrutir.a temporl zadora 


Línea 500-580 : Datos 


Capítulo 

Punto 


Geograf ía/HIstorla Página 
Comunidades 243 
Autonómicas 


Voss 


Colegio 




7. PASO : Resultados 


Tampoco en este programa resulta necesario ofrecer los 
resultados. El análisis del programa, o aún mejor, la 
ejecución del mismo muestra claramente lo que ocurre en cada 
momento. 



7.4 El desarrollo de la población en diferentes 
países 


1. PASO : Presentación del problema 

Presentamos aquí un programa que pronostica el 
desarrollo de la población de diferentes países del mundo 
hasta el año 2000. 

Los países o grupos de países seleccionados para el estudio 
son: 


Mundo (comprendiendo a todos los países) 

Países Industrializados 
Países en vías de desarrollo 


RP China 

India 

Japón 

USA 

URSS 


República Federal de Alemania 







2. PASO : Análisis del problema 

Los pronósticos de población planteados requieren el 
decidirse por un determinado método de pronosticación. 

Existe un gran número de métodos distintos, que aquí no 
pueden ser discutidos uno a uno. 

Para este programa hemos extraído los valores obtenidos en 
pronósticos modelo como los publicados en el Informe GLOBAL 
2000 (Washington 1980). 

A partir de estos datos calculamos además las tasas de 
crecimiento medias anuales, para poder ofrecer a través del 
programa una Información adicional. 

Desde el punto de vista de la programación no aparecen 
dificultades Importantes, si exceptuamos que, debido al 
volumen de resultados, en diversos puntos del programa es 
necesario efectuar Interrupciones. 
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10 REfl #BEO— H3# -TABLA DE PQBLAC ION- 

SO COLOR 15,1,1: SCREEN O.-UIDTH 40:KEY OFF:CLS 

30 PRINT : PRINT "PROGRAHA PARA REPRESENTAR EN UNA TABLA ,":F 

RINT : PRINT 

10 PRINT "EL DESARROLLO DE LA POBLACION DE DIFE-": PRINT : PR 
INT 

50 PRINT "RENTES PAISES." 

50 PRINT: PRINT: PRINT: PRINT " PROF. OR . U). UOSS, 1SS 

4 " 

70 LOCATE 8 , 1E : PRINT " 

80 BOSUB 720: CLS 

SO Din BC10.65, JC65,UJRC105,LSC205 

100 Din L1SC55 , L2SC55 , L3SC55 , L4SC55 , L5SC55 

110 Din L6SC55 , L7SC55 , L8SC55 , L9SC55 , L0SCS5 

120 FOR 1-1 TO B 

130 READ X 

140 JCI5-X 

ISO NEXT I 

160 FOR L-l TO 10 

170 FOR 1-1 TO B 

100 READ X 

ISO BC,L,I5-X 

SOO NÉXT I 

210 NEXT L 

520 L1I-”HUNDQ”:L2S-”IND. ” 

230 L3S-"DES.":L4S- "CHINA" 

240 L5S-"INniA":L6$-”JAP0N” 

250 L7S- "USA”: LBS- "URSS" 

260 LSS- ”RFA ” : LOS- ” RDA ” 

270 PRINT ” ARO” ¡ ” "¡LIS;" ” ; L2$ ; '* ";L3S 

280 PRINT: BOSUB 810 
230 LOCATE 0,4 
300 FOR 1-1 TO 6 

310 PRINT: PRINT ” ”;JCI5¡" “íBCI.IJ;" ";BC2,I5¡" 

;BC3,I) 

320 NEXT I 

330 PRINT 

340 BOSUB 810 

350 FOR L-l TO 3 

360 X-BCL, ID : Y-BCL , 65 

370 BOSUB 7B0 

380 NEXT L 

3S0 PRINT ” TASA 5s”;” ";WRC15;" ”;UIRC21;" "¡URC35 

400 BOSUB 720 
410 CLS 

420 PRINT ” ARO”;" "¡L4$¡" ”¡LS$;” "¡LBS;” ”;L7S¡" 

”;L8S: PRINT 

430 BOSUB 810: PRINT 

440 T-0 

450 FOR 1-1 TO B 

4B0 LOCATE 0 , 3+I+T: PRINT JCI5:L0CATE 7, I+3+T: PRINT 8C4,I5;L 
OCATE 14, I+3+T: PRINT 8CS.I5: LOCATE 21 , I+3+T: PRINT BC6,I1:L0 
CATE 28, I+3+T : PRINT BC7,n:L0CAIE 35, I+3+T: PRINT BC8.I5 
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470 T-T+l 

4S0 NEXT I 

490 BOSUB 610 

500 FOR L-4 TO B 

510 X-BCL, 15:Y~BCL, 65 

520 BOSUB 7S0 

530 NEXT L 

540 PRINT ” 5í “ ; UIRC45 ; ” "¡URCS5:" ”;URC65-” ”¡ WRC75 

” ; WRC85 

550 BOSUB 720: CLS 

560 PRINT ” ARO ” " :L3£-" ” -LOS 

• 570 PRINT : GOSUB 810 V 

580 T-0 

590 FOR 1-1 TO 8 

BOO LOCATE 6, I+3+T:PRINT JCI5:L0CATE 17 , I+3+T: PRINT BCS 15, 

LOCATE 28, I+3+T: PRINT BC10.I5 

B10 T-T+l 

620 NEXT I 

630 PRINT: GOSUB 810 

B40 FOR L-S TO 10 

650 X-BCL, 15:Y-BCL, 65 

660 BOSUB 7B0 

670 NEXT L 

B80 PRINT 

BSO PRINT ” \ ";LIRC35 ; ” "¡WRC105 

700 BOSUB 720 

710 CLS: LOCATE 12,12:PRINT "FIN DEL PROBRAHA" : ENO 

720 REN LECTURA DEL TECLADO 

730 LOCATE 12,22: PRINT "PULSE UNA TECLA" 

740 AS-INKEYS 

750 IF AS-”" THEN 740 ELSE RETURN 
7B0 REN TASA DE CRECIO IENTQ 

770 R-EXPCLOGCY/X 5/25 5-1 
780 R-R“100 : R-FIXCR*100+ .55/100 
730 URCL5-R 
800 RETURN 

S10 REO RAYADO 

B20 FOR 1-1 TO 40 

B30 PRINT 

840 NEXT I 

850 PRINT 

BBO RETURN 

870 DATA 1875,1380,1985,1930,1995,2000 

880 REO HUNDO 

8S0 DATA 4134,4549,5013,5545,6143,6738 

SOO REO PAISES INDUSTRIALIZADOS 

S10 DATA 1131,1174,1224,1276,1327,1377 

S20 DATA 3003,3375,3789,4269,4816,5420 

S30 REO REPUBLICA POPULAR CHINA 

940 DATA 978,1071,1151,1241,1348,1468 

350 REO INDIA 

960 DATA 618,694,786,834,1013,1142 

970 REO JAPON 

980 DATA 112,117,122,157,131,135 

SSO REH ESTADOS UNIDOS 

1000 DATA 214,222,235,248,260,270 

1010 REO UNION SOUIETICA 

1020 DATA 294,268,282,296,310,323 

1030 REO REPUBLICA FEDERAL ALEOANA 

1040 DATA 61. 8, 61. 7,60,58.6,57. a, 56. 2 

1050 REO REPUBLICA DEHOCRATICA ALEHANA 

1060 DATA 16.8,16.7,16.6,16.4,16.2,16.1 







5. PASO : Lista de variables 

B = Población 
l = Indice variable 
J = Año 

L = Indice variable 
L$ = Países 

WR = Tasa de crecimiento 
X = Valor d partida (1975) 

Y = Valor final (2000) 


6. PASO : Descripción del programa 

Línea 10-70 : Título y comentarlos del programa 

Línea 80-260 : Lectura de todos los datos de partida 

Línea 270 : Encabezamiento de la tabla 

Línea 280 : Salto a la subrutlna de subrayado 

Línea 290-340 : Impresión de los valores de la tabla 

Línea 350-380 : Determinación de las tasas de ere 

cimiento medias anuales para los paí 
ses L=1 , L=2 y L=3 

Línea 360 : Toma del valor Inicial 
y del valor final 

Línea 370 : Salto a la subrutlna de 
cálculo de la tasa de 
crecimiento 






Línea 390 : Impresión de tasas de crecimiento 

Línea 400-410 : Salto a subrutlna de espera y borrado 

Línea 420-540 : Mismo procedimiento que en la línea 

270-410, pero para la segunda tabla 

Línea 550-700 : Lo mismo para la tercera tabla 

Línea 710 : Final del programa 

Línea 720-750 : Subrutlna de espera 

Línea 760-800 : Subrutlna Tasa de crecimiento media 

anual (se calcula con ayuda de loga- 
ritmos, ver línea 770) 

Línea 810-860 : Subrutlna Raya : 

Mediante encadenamiento de signos 
menos se dibuja una raya en la 
pantal la 

s.. 

Línea 870-1060 : Datas 
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7, PASO : Resultados 

Este programa genera en la pantalla tres tablas consecutivas 


1. Tabla (referencias en millones) 


AÑO 

MUNDO 

PAISES 1 

PAISES VD 

1975 

4134 

1131 

3003 

1980 

4549 

1174 

3375 

1985 

5013 

1224 

3789 

1990 

5545 

1276 

4269 

1995 

6143 

1327 

4816 

2000 

6798 

1377 

5420 

TASA % 

2.01 

79 

2.39 
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2. Tab 

la (referencias 

en mil 

Iones) 



AÑO 

CHINA 

INDIA 

JAPON 

USA 

USSR 


1975 

978 

618 

112 

214 

254 


1980 

1071 

694 

117 

222 

268 


1985 

1151 

786 

122 

235 

282 


1990 

1241 

894 

127 

248 

296 


1995 

1348 

1013 

131 

260 

310 


2000 

1468 

1142 

135 

270 

323 


% 

1.64 

2.49 

.75 

.93 

.97 



3. Tab 

a (referencias en millones) 

AÑO 

RFA 

RDA 

1975 

61.8 

16.8 

1980 

61.7 

16.7 

1985 

60 

16.6 

1990 

58.6 

16.4 


1995 

57.8 

16.2 

2000 

56.2 

16.1 

% 

-.38 

-.17 


FINAL 







Durante mucho tiempo, el campo de aplicación 
fundamental de los ordenadores fue el de la Economía, y en 
especial el empresarial y comercial. Puede decirse que hoy 
en día sigue siendo en estos campos, donde se emplean con 
más frecuencia los ordenadores. 
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Capitulo 8 : La economía 


8.1 Consideración previa 



Los problemas tratados en estos campos se prestan a ser 
resueltos por medio de ordenadores, hoy en día también con 
m i croordenadores . 

Algunos de los problemas fundamentales de la Economía, por 
lo menos en lo referente a los cálculos, son tratados 
también en las escuelas; en escuelas empresariales de forma 
más intensiva, pero también en otros tipos de escuelas, 
donde tampoco se evitan este tipo de problemas. 

También aquí, los problemas seleccionados sólo son 
representativos de otros muchos, que por motivos de espacio 
no pueden ser incluidos en esta obra. 
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8.2 El cálculo de intereses 

1. PASO : Presentación del problema 

Imaginemos que alguien lleva un determinado 
importe al banco, del que sé deducirá el pago de un 
determinado Interés por la Imposición del mismo. Este 
Interés puede ser fijado arbitrar ¡amente. 

Al final de cada año aumenta el capital en un determinado 
tanto por ciento. Hay que tener en cuenta, además, que a 
partir del segundo año se obtiene un interés sobre el 
capital más el Interés del año anterior (interés compuesto). 

Vamos a desarrollar ahora un programa que calculará - para 
un Importe inicial arbitrarlo y para un rédito cualqulera- 
el Importe final obtenido después de una cifra determinada 
de años. 


Una programa como este puede servir además como patrón para 
la simulación de diversos procesos de crecimiento. 




2. PASO : Análisis del problema 

SI llamamos ai capital de partida KO, al rédito P {%) 
y ai tiempo que se tiene el dinero colocado en el 
banco T (años). 

Después del primer año, el capital resultante XI es : 

XI = XO + XO * P/100 = XO * (1 + P/100) 

Tras el segundo año se obtiene del mismo modo: 

X2 = XI + XI * P/100 = XI * (1 + P/100) 

- XO * (1 + P/100) * (1 + P/100) 

= XO * (1 + P/100) 4 

(Estas relaciones ya las conocemos' de capítulos 
anteriores) . 

De esta forma, después de T años se obtiene: 

XT = XO * ( 1 + P/100) T 

Con ayuda de esta fórmula podemos confeccionar ahora 
un programa adecuado. 
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3. PASO : Diagrama de rlujo 


Comienzo 

- r. - z r^ 

introducción 

KO,P,T 





10 RE 
SO CQ 
30 PR 
40 PR 
50 LD 
SO LO 
70 LO 
80 LO 
30 CLS 


REn #EC0N1# -CALCULO DE INTERESES- 

COLOR 15, 1, l.-SCREEN O: UJIDTH 40:KEY OFF:CLS 

PRINT ” PROGRAMA PARA EL CALCULO DE INTERESES 


PRINT: PRINT: PRINT ” PROF . DR . U. UOSS, 19B4” 

LOCATE 8, 4: PRINT ” 

LOCATE 5,10: INPUT "CAPITAL 

LOCATE 5, 15: INPUT "REDITO ANUAL * 

LOCATE 5,80: INPUT "TIEflPO DE IMPOSICION 


100 PRINT: PRINT " ARO INTERESES CAPITAL ” 

110 PRINT: PRINT ” “ 

ISO M-6 

130 FOR 1-1 TO T 
140 Z-K0*P/100 
150 KT-KO+Z 

160 Z-FIXCZ*100+. 53/100 
170 KT«FIXCKT*100+. 53/100 

180 LOCATE 5 , M : PRINT I : LOCATE 13,M:PRINT Z:LOCATE 26,M:PRIN 
T KT 

130 KO-KT 

800 IF I /7-FIXC 1/73 THEN BOSUB ESO 
S10 M-M+2:IF M>18 THEN M-6 
SEO NEXT I 

530 LOCATE 10, E5: PRINT "OTRO CALCULO CS/N1" 

240 AS-INKEYS 

250 IF AS-”S" OR A$-”s” THEN CLS : RESTORE : GOTO 10 
260 IF AS-”N” OR AS-”n” THEN 270 £LSE 240 
270 CLS: LOCATE 12, 12: PRINT "FIN DEL PROGRAMA” : END 
280 REM SUBRUTINA DE ESPERA 

230 LOCATE 5.22.-PRINT "Pulse una tecla para continuar” 

300 AS-INPUTSC1) 

310 CLS: PRINT: PRINT ” ARO INTERESES CAPITAL ” 

320 PRINT: PRINT ” ” 

330 RETURN 


CAPITAL 
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5. PASO : Lista de variables 

A$ - Variable de cadena para las respuestas 

1 = Indice variable 

KO = Capital Inicial 

KT = Capital en los períodos siguientes 

P = Rédito anual en tanto por ciento 

T = Tiempo de Imposición en años 

Z = Interés anual 


6. PASO : Descripción del programa 

Línea 10-50 : Título 

Línea 60-80 : Demanda de los datos de partida 

Línea 90-110 : Limpieza de la pantalla e Impresión 
de un encabezamiento de tabla 

Línea 120-220 : Cálculos 

140 : I nterés 

150 : Capital tras el siguiente 

período 

160-170 : Redondeo 

180 : I mpres I ón 

200 : K0 toma el valor KT, para poder 

entrar en el siguiente cálculo 
210 : Después de cada 7 períodos 

interrupción mediante el salto 
a la subrutina 280 
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Línea 230-270 : Final del programa, a menos que se 

desee seguir calculando (vuelta a la 
línea 10) 

Línea 280-330 : Subrutlna para esperar cuando la 
pantal la está 1 lena: 

290 : Indicación 

300 : Espera 

310-320 : Borrado de la pantal la y nue- 

va Impresión del encabezamlen 
to 

330 : Salto de vuelta 


7. PASO : Resultados 

SI Introducimos el capital Inicial Ptas. 100, el rédito 5,5? 
y el tiempo 6 años, se obtiene : 

AÑO INTERES CAPITAL 


105.5 

113.3 

117.42 

123.88 
130.69 

137.88 


OTRO CALCULO (S/N) 
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8.3 Amortización de una hipoteca 

1. PASO : Presentación de i problema 

De entre los problemas de la Economía, aquéllos 
que están relacionados con el pago de créditos e hipotecas 
juegan también un papel Importante. Hay programas de 
ordenador que pueden calcular el tiempo de amortización bajo 
diversas condiciones de partida, como p.e. valor de la 
deuda, el Interés o las modalidades de pago. 

El programa siguiente calcula el tiempo de amortización para 
diferentes Importes e Intereses o cuando se han acordado 
cuotas de amortización de distintas cuantías. 

Puede caerse fácilmente en la cuenta de que este programa es 
aplicable de forma más general en problemas de este tipo. 
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2. PASO : Análisis del problema 

Para explicar la resolución del problema nos basaremos en el 
siguiente ejemplo: 

Alguien solicita una hipoteca de S Ptas. y acuerda con el 
banco concesor un pago mensual de 8 Ptas. De este importe 
mensual B deben restarse primero los Intereses por la deuda. 
El importe que queda después de restar los Intereses puede 
aplicarse para saldar la deuda - suponiendo que quede un 
resto positivo. 

El programa que vamos a confeccionar debe calcular mes a mes 
los Intereses y el capital de amortización. SI este importe 
es igual o menor a 0, el programa debe imprimir un mensaje 
para avisar de que bajo esas condiciones ya no es posible 
amortizar la deuda. 

Debe imprimirse año por año un estado de la deuda, y cuando 
la deuda sea cero o negativa, deberá -indicarse la duración 
del proceso de amortización. 







10 REÍ1 SEC0N2# -CALCULO DE HIPQTECAS- 

20 COLOR 15, 1, IrSCREEN 0:UJIDTH 40: KEY OFF:CLS 

30 PRINT - PROGRAMA PARA CALCULAR EL TIEMPO DE A-" 

40 PRINT: PRINT ” MORTIZ ACION DE UNA HIPOTECA.” 

50 PRINT : PRINT : PRINT ” PROF . DR . Ul. U0S5, 1SB4” 

60 LOCATE 0,6: PRINT ” ” 

70 LOCATE 5,10: INPUT "CUOTA ANUAL - ”¡B 

BO LOCATE 5, 15: INPUT "INTERES EN \ - ”;F 

SO LOCATE 5,20: INPUT "DEUDA HIPQT . ACTUAL - ";S 

100 CLS 

110 PRINT: PRINT " ARO DEUDA " 

120 PRINT: PRINT " ” 

130 H=5 
140 J-l 
150 N=1 

160 Z-CCP/100)*S)/12:T-B-Z 

170 IF T< “O THEN 230 

180 S“FIX( CS-T 5*100+ .55/100 

ISO IF S<=0 THEN 230 

200 M-M+l.-IF f1< 13 THEN 160 

210 LOCATE 10 , H : PRINT J:LOCATE 23,H:PRINT S 
220 J=J+1:H“H+2:G0T0 150 

230 CLS .-LOCATE 2, 7: PRINT "LAS CONDICIONES NO PERMITEN AMCJRT 
IZAR” 

240 PRINT: PRINT " LA DEUDA. INTRODUZCA NUEUOS DATOS POR" 
250 PRINT: PRINT ” FAUOR . ” 

260 LOCATE 11, 20 .-PRINT "PULSE UNA TECLA” 

270 AS-INPUTSCl) 

200 CLS: GOTO 10 

2S0 LOCATE 13, 22: PRINT "PULSE UNA TECLA" 

300 A$“ I NPUTS C 1 ) : CLS 

310 LOCATE S, 10: PRINT "TIEMPO DE AMORTIZACION : " 

320 LOCATE 10, 13: PRINT J-l;” AROS ”;M-1;” MESES " 

330 LOCATE 11,22: PRINT "OTRO CALCULO CS/N5” 

340 AS-INKEYS 

350 IF A$-”S" OR AS-"s” THEN CLS: GOTO 10 

360 IF AS-"N” OR AS-”rT THEN 370 ELSE 340 

370 CLS : LOCATE 11,12:PRINT "FIN DEL PROGRAMA" : END 
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5. PASO : Lista de variables 

A$ = Variable de cadena (si, no) 

B = Cuota mensual 
I = Indice variable 
J = Contador de años 
M = Contador de meses 
P = Interés anual de la deuda 
T = Importe mensual de amortización 
Z = Pago mensual de Intereses 

6. PASO : Descripción del programa 

Línea 10-60 : Título 

Línea 70-90 : Petición de las Informaciones de partida 

Línea 100-120 : Impresión del encabezamiento de la 
tabla 


i 


Línea 130-150 : Fijación del contador de años (J) y 
del contador de meses M 

Línea 160-180 : Cálculo del Interés mensual, de la 
cuota mensual y de la nueva deuda 

Línea 170 : En caso de no poder amortizar, seguir 

en 230 

: Una vez saldada la deuda, seguir en 
290 


Línea 190 
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Línea 200 : Mes siguiente 

si N es menor que 13 seguir en 160, en 
caso contrario seguir en la línea 210 

Línea 210 : Impresión de la deuda actual 

Línea 220 : Año siguiente y seguir en línea 150 

Línea 230-280 : Mensaje sobre condiciones no permiti- 
das y vuelta a la línea 10 

Línea 290-320 : Impresión del tiempo de amortización 
en años y en meses (piensa porque se 
le resta cada vez el valor 1 a J y . 
a N) 

Línea 330-370 : Final del programa, a menos que no se 

desee un nuevo cálculo (entonces retor- 
no a la línea 10 tras borrar la’panta- 
I la) 
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7. PASO : Resultados 

Introduzcamos estos datos cuando ei ordenador nos lo pida: 


CUOTA ANUAL : ? 500 

INTERES EN % i ? 6.5 

DEUDA HIPOT. ACTUAL.: ? 40000 

y obtendremos en ei transcurso del programa : 


AÑO DEUDA 


1 36496.86 

2 32759.09 

3 28771 .02 

4 24515.85 

5 19975.7 

6 15131.48 

7 9962.85 

8 4448.07 

TIEMPO DE AMORTIZACION : 

8 AÑOS Y 9 MESES. 

OTRO CALCULO (S/N) ? 
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8.4 Media aritmética 


1. PASO : Presentación del problema 

En algunos problemas de economía resulta necesario calcular 
el promedio de un número determinado de datos; normalmente 
se trata de la media aritmética. 

El programa siguiente efectúa este cálculo para un número 
cualquiera de datos. 


2.. PASO : Análisis del problema 


El análisis del problema no presenta especiales 
dificultades. 

Primero hay que procurar que se Introduzca un número no 
fijado de datos, por lo que se ha de informar al ordenador 
de cuántos valores se van a introducir. 

Al Introducir los valores puede efectuarse automáticamente 
la suma acumulativa de los mismos (la media aritmética no es 
más que la suma de todos los valores dividida entre el 
número de ellos). La división de la suma resultante del 
número de valores puede imprimirse como resultado del 
programa. 






4. PASO : Programa 


10 REH #ECQN3# -UALOR MED 10- 

20 COLOR 15,1,1: SCREEN 0:tÜIDTH 40:KEY 0FF:CLS:S-0 

30 PRINT ” PROSRAHA PARA CALCULAR UNA HEDIA ARIT-" 

HO PRINT ¡PRINT ” HETICA.” 

50 PRINT: PRINT: PRINT ” PROF . DR . W. U0S5, ÍSS 1 *” 

60 LOCATE 8, 6: PRINT ” ” 

70 LOCATE 5,12: INPUT "CUANTOS UALORES : ”;N:IF N“ 

O THEN 180 
BO FOR 1-1 TO N 

SO LOCATE 5 , 17 : PRINT "UALOR . . . C ” ; I j ”3 : LOCAT 

E 32, 17: PRINT ” ” .-LOCATE 32, 17: INPUT X 

100 S-S+X 
110 NEXT I 
120 AH-S/N 

130 LOCATE 5, 17: PRINT "HEDIA ARITHETICA - ”:L0 

CATE 33, 17: PRINT AH 

1H0 LOCATE 10, 22: PRINT "OTRO CALCULO CS/N)” 

150 AS-INKEYS 

160 IF A$-”S” OR AS-"s” THEN CLS:BOTO 10 

170 IF AS-”N” OR AS-”n” THEN 180 ELSE 150 

180 CLS: LOCATE 11, 12: PRINT "FIN DEL PROBRAHA” : END 


5 . PASO : Lista de variables 


AM = Media aritmética 

A$ = Variable de cadena (sl/no) 

! = Indice variable 
N = NGmero de valores a promediar 
S = Suma de los valores a promediar 
X - Valor que entra en el calculo del valor medio 
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6. PASO : Descripción del programa 


Línea 10-60 : Título 

Línea 70 : Indicación del número de valores a 

promediar 

Línea 80-110 : Introducción de un valor tras otro y 

suma acumulativa de todos los valores 

Línea 120-130 : Cálculo de la media aritmética e 
Impresión del resultado 

Línea 140-180 : Final del programa, a menos que no se 
desee continuar calculando 


7. PASO : Resultados 


SI Introducimos p.e., que existen tres valores, el programa 
pedirá exactamente tres valores. 

SI éstos son p.e. ios valores 5, 7 y 9, obtendremos: 

MEDIA ARITMETICA = 7 



OTRO CALCULO (S/N) 1 


1. PASO 


Presentación del problema 


A la hora de valorar volúmenes de datos grandes, 
que es cuando los ordenadores se muestran especialmente 
útiles, uno de los primeros pasos de la Investigación 
estadística consiste en realizar una llamada distribución de 
frecuencias. 

Se trata de asignar mediante una tabla o un gráfico la 
frecuencia con que aparecen los valores característicos (o a 
las clases de valores característicos ) de la variable objeto 
de la Investigación. 

El programa siguiente realiza esta distribución de 
frecuencias tanto gráficamente como en forma de tabla. Como 
materia! de valoración utilizaremos la distribución por 
edades de la población de la RFA en" el año 1980. 


Esta distribución por edades de la población federal alemana 
es la siguiente: 
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Distribución de edades en la República Federal de Alemania 
en 1980: 


Grupos de 

: edades 

Porcentaje 

menos de 

10 

10.3 

10 hasta 

20 

16.4 

20 hasta 

30 

14.6 

30 hasta 

40 

13.4 

40 hasta 

50 

14.2 

50 hasta 

60 

11.9 

60 hasta 

70 

8.9 

70 hasta 

80 

7.8 

80 hasta 

90 

2.4 

90 y más 


0.2 

. PASO : 

Anál Isis 

del problema 


Para el análisis del problema partiremos de la base de que 
disponemos de los datos tal como aparecen en la tabla, de 
forma que puedan ser utilizados como material de partida 
para el programa a confeccionar. 

De no ser este el caso, y tuviéramos datos sueltos obtenidos 
en una encuesta, deberíamos procurar en una primera parte 
del programa la clasificación de estos datos sueltos por 
grupos de edades (esto puede conseguirse mediante una serle 
de instrucciones IF...THEN, que comprobarían cada uno de los 
valores de edad). 
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Una vez hecho esto, podemos reí atlv Izar ¡os valores 
obtenidos para cada grupo de edades, comparándolos con la 
totalidad. De este modo, obtenemos los porcentajes que ya 
aparecen en la tabia anterior. 


Esta parte del programa podría resumirse esquemáticamente de 
la forma siguiente: 

100 INPUT "Edad siguiente : ";X 
. 110 1F X<10 THEN Z1-Z1+1 : GOTO 100 
120 IF X<20 THEN Z2=Z2+1 : GOTO 100 

• • • 

etc. 

200 R1=(Z1/N)*100 
210 R2=(Z2/N)*100 

etc. 

En este ejemplo se trata únicamente de representar en forma 
de tabla los valores Introducidos, cosa que lógicamente no 
ofrece ninguna dificultad desde "'el o de vista de la 
programación. 

La representación gráfica de esta distribución de 
frecuencias, en cambio, es más complicada. 





Para poder aprovechar óptimamente la pantalla en la. 
representación gráfica, determinaremos, en primer lugar, cuál 
es la frecuencia mayor y, a continuación, convertiremos 
todas las demás frecuencias de forma que la primera ocupe 15. 
líneas en vertical de la pantalla. 

Las frecuencias en sí se representan en forma de barras 
verticales. Para que el tamaño de estas barras sea correcto, 
debe determinarse su correspondiente punto final. Junto con 
el punto de origen obtendremos dos posiciones de pantalla 
por barra y ya tan solo será necesario conectar con una 
línea. 
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3. PASO : Diagrama de flujo 



| 

f 



i! 


na 












10 REM #EC0N4# -DISTRIBUCION- 

50 COLOR 15,1,1: SCREEN 0:WI0TH 40:KEY 0FF:CLS:S**0 

30 PRINT "PROGRAMA PARA REPRESENTAR EN UNA TABLA Y” 

40 PRINT "GRAFICAMENTE UNA DISTRIBUCION ESTA0I5TI-” 

50 PRINT ”CA . ” 

60 PRINT: PRINT: PRINT " PROF . DR. U. UOSS, 1SB4” 

70 LOCATE 8, B : PRINT ’’ ” 

80 LOCATE O, 12: PRINT ” Se representa la distribución de ed 
adas” 

SO PRINT: PRINT ” en la República Federal Alemana en 1380” 
100 LOCATE 15, 55: PRINT "PULSE UNA TECLA” 

110 AS-INPUTSC15 
150 DIM FC103.FTC10) 

130 CLS 

140 FOR 1-1 TO 10 
150 READ X 
160 FCO-X 

170 NEXT I: COLOR 1,15,15 

180 PRINT ” EDAD”;” "PORCENTAJE" 

ISO FOR 1-0 TO 33: LOCATE I,1:PRINT :NEXT I 

500 H-0 ' 

510 FOR 1-1 TO 10 
550 A-CI-15*10:B-I*10 

530 LOCATE 1,5+H: PRINT A: LOCATE 7 , 5+H: PRINT "HASTA MENOS DE 
”: LOCATE 55, S+H: PRINTB: LOCATE 30, S+H: PRINT FC 13: LOCATE 36,5 
+H : PRINT 
540 H-H+5 
550 NEXT I 

560 LOCATE 15, 55: PRINT "PULSE UNA TECLA” 

570 AS-INPUTSC13 
580 FM-0 : CLS 
530 FOR 1-1 TO 10 
300 IF FCI 3>FM THEN FM-FCI3 
310 NEXT I 
350 FOR 1-1 TO 10 
330 FTCI3-FCI3*C15/FM3 
340 NEXT I 
350 B-Sl 

360 FOR 1-1 TO 10 
370 A-51-FTCI3:A-FIXCA+.S3 
3B0 FOR Z-A TO B 
330 LOCATE 4»I~S,Z 
400 PRINT 
410 NEXT Z 
450 NEXT I 
430 LOCATE 0,55 
440 FOR 1-0 TO 33 
450 PRINT"#”; 

460 NEXT I 
470 FOR 1-1 TO 10 
480 PRINT C'I*103 ; 

430 NEXT I 
500 END 

510 DATA 10.3,16.4,14.6,13.4,14.5 
550 DATA 11.3,8.3,7.8,5.4, .5 


t‘ 

i; 
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5. PASO : Lista de variables 


A == Límite Inferior del grupo de edades 

después : dirección de inicio de la columna 

B = Límite superior del grupo de edades 

después : dirección final de la columna 
F = Frecuencia 
FM = Frecuencia máxima 
FT = Frecuencia transformada 
I = Indice variable 
H = Línea de pantalla 

6. PASO : Descripción del programa 

Línea 10-90 : Título 

Línea 100-110 : Espera 

Línea 120-170 : DlmensI onado y lectura de los datos 

de partida 

Línea 180-190 : Impresión del encabezamiento de la 

tabla 

Línea 210-250 : Impresión de la tabla; 

220 : Determinación del punto de 

inicio del grupo 
230 : Impresión 
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Línea 260-270 : Espera 

Línea 280-310 : Búsqueda de la frecuencia mayor y 

comparación de todas las frecuencias 
con cada frecuencia máxima alcanzada 
(empezando por el valor 0) 

Línea 320-340 : Determinación de la frecuencia 

transformada mediante adaptación 
de las frecuencias a la frecuencia 
máxima 

Línea 350-420 : Trazado de la gráfica: . 

350 : Final de la columna 

370 : Determinación del comienzo de 

la columna medido con respecto 

al reparto de líneas 

380-410 : Trazado de la columna me- 

diante el encadenamiento 
de asteriscos 

Línea 430-460 : Eje horizontal 

Línea 470-490 : Escalado del eje horizontal 

Línea 500 : Final del programa 

Línea 510-520 : Datos 



Voss 

Capítu lo 

8 : Economía 

Página 


Punto 

5 : Distribución 

281 

Colegio 





7 . PASO : Resu I tados 

No vamos a ofrecer los resultados de este programa. Nos 
parece mucho más útil que el lector Introduzca el programa 
en su ordenador y que después intente explicar paso a paso 
lo que sucede, comparando las impresiones en pantai la con la 
descripción que hacemos. 

No obstante, creemos conveniente hacer la siguiente 
puntual ización: 

El gráfico que traza este programa no uttllza las 
Instrucciones BASIC que hay disponibles para los gráficos de 
alta resolución, sino que se genera mediante Instrucciones 
PRINT. 

Esto tiene como consecuencia que el dibujo sea poco preciso. 

Las columnas de diagrama no representan exactamente las 
frecuencias, porque la unidad básica de trazado de las 
mismas es un cuadrado del tamaño del cursor, es decir con un 
lado de 7 mm. (en un monitor normal de ordenador). 

Para obtener gráficos más exactos no queda más remedio que i 

utilizar los gráficos de alta resolución, como haremos en el 

capítulo siguiente. ¡| 
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8.6 La economía de los países europeos 

1. PASO : Presentación del problema 

El programa siguiente es muy distinto a los 
programas precedentes. Aquí se trata nuevamente de 
confeccionar un "programa Informativo". 

Vamos a desarrollar un programa que visualiza datos 
Importantes sobre la economía nacional cuando el usuario lo 
requiere. 

Estos datos se refieren a los siguientes campos: 

. 

I ; 


j 

I: 


í 

1' 

k 

1 


if 


1. Población (en millones) 

2. Superficie (en miles de Km. cuadrados) 

3 . Producto Interior bruto (en miles de millones 

de Ptas . ) • 

4. Población activa (en millones ) 

5. Proporción de trabajadores extranjeros (en %) 

6. Impuestos totales (en miles de millones de 
Ptas. ) 

7. Deudas (en miles de millones de Ptas.) 

8. Porción de la producción Industrial (en %) 

El usuario puede alargar esta lista o utilizar otros 
conceptos en lugar de ios países (p.e. Comunidades 
Autónomas) . 


Voss 

Cap í tu 1 o 

8 

: Economía 

Página 

Colegio 

Punto 

6 

: Países 

283 


Lógicamente, habrá que modificar el fichero de datos para 
adaptar el programa. 

2. PASO : Análisis del problema 

El lector habrá podido comprobar que a lo largo de estos 
capítulos hay ciertos problemas que se repiten o reaparecen 
de forma similar a la originaría. Aquí nos encontramos de 
nuevo ante este problema: En principio no se presentan 
nuevos problemas y el análisis resulta ciertamente sencillo. 

Primero hay que Introducir todas las Informaciones 
relevantes. A continuación se pregunta al usuario el nombre 
del país acerca del que desea obtener informaciones. Tras 
Introducir este nombre tiene lugar la Impresión del juego de 
datos correspondiente. 
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3. PASO : Diagrama de flujo 
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10 RED #EC0N5# -ECONOMIA EUROPEA- 
20 COLOR 15,1,1: SCREEN 0:IUIDTH 40:KEY OFF:CLS 
30 PRINT : PRINT "PROSRAMA PARA IMPRIMIR I NFORMAC I ONES SO-" 
40 PRINT: PRINT "BRE EL PODER ECONOMICO DE DIFERENTES PAI" 
50 PRINT: PRINT ”SES EUROPEOS." 

50 PRINT : PRINT: PRINT: PRINT ” PROF. DR . til, UOSS, 138 

4" 

70 LOCATE 8, 15: PRINT ” " 

BO LOCATE 11 , 22 : PRINT "PULSE UNA TECLA” 

30 AS-INPUTSClí 
100 CLS 

110 DItl LSC25) , UC8, 18 ) 

120 DIN B1SC2B3 , B2SC263 , B3SCB6Í , B4SC26Í 
130 DIN BSSCESl.BBSCBBl.BTSCaBl.BSSCBS) 

140 PRINT ” DE QUE PAIS DESEA OBTENER INFORMACION ?“ 

150 FOR 1-1 TO 18 
160 READ LS 

170 PRINT " I, ” ”;L$ 

ISO NEXT I 

ISO LOCATE 3,22 : PRINT "INDIQUE UN NUMERO” 

200 LOCATE 27,22: INPUT 2 
210 IF 2<1 OR 2>18 TKEN 180 
220 CLS 

230 LOCATE 10,12:PRINT ”UN MOMENTO POR FAUOR” 

240 FOR J-l TO Q 
250 FOR 1-1 TO 18 
260 READ X 
270 UCJ,I)-X 
280 NEXT I 
290 NEXT J 
300 RESTORE 
310 FOR 1-1 TO Z 
320 READ LS 
330 NEXT I 

340 BIS" "POBLACION Cmill.3 

350 BBS" "SUPERFICIE CxlOOO KmB) 

350 B3$-”PRQD . INTERIOR CxlOES) 

370 B4$-”P0BL . ACTIUA Cmill.í 

350 BS$-”PROP . EXTRANJEROS C 30 

390 B6$"” IMP . TOTALES Cxl0E93 

400 B7S- "DEUDAS CxlOESD 

410 B8S~”PR0D . INDUSTRIAL CJO 

420 CLS 

430 PRINT ” “¡LS 

440 LOCATE 0,1: FOR Q-0 TO 33: PRINT ”-";:NEXT Q 


450 PRINT: PRINT BIS 
450 PRINT: PRINT BBS 
470 PRINT: PRINT B3S 
480 PRINT: PRINT B4S 
4S0 PRINT: PRINT BSS 
500 PRINT: PRINT BSS 
510 PRINT: PRINT B7S 
520 PRINT .-PRINT BBS 


UCl.Z) 

UC2.25 

UC3.Z) 

UC4.Z), 

UC5.Z) 

UCB.Z) 

UC7.Z1 

UC8.ZJ 


530 LOCATE 12, 22: PRINT "PULSE UNA TECLA” 

540 AS-INPUTSC13 
550 CLS 

560 LOCATE 11, 12: PRINT "OTRO PAIS MAS CS/N1’ 
570 AS-INKEYS 





580 IF A$-"S" 0R AS-”s“ THEN CLS : RESTORE : GOTO 140 
590 IF A$-”N” QR AS-“n” THEN 600 ELSE 570 
BOO CLS: LOCATE 12,11:PRINT ”FIN BEL PROGRAflA “ : END 
610 DATA "ESPARA”, "FRANCIA”, "ITALIA” 

620 DATA "REINO UNIDO”, "RFA”, "IRLANDA" 

630 DATA "SRECIA", "BELGICA”, “HOLANDA” 

640 DATA "SUECIA”, "DINAMARCA”, "PORTUGAL” 

650 DATA "NORUEGA", "FINLANDIA”, "SUIZA" 

660 DATA "LUXEflBURGO” , "AUSTRIA”, “MALTA" 

670 DATA O, O, O, O, O, O, O, O, O, O 
660 DATA O, 0,0, O, O, O, O, O, 0,0 
6S0 DATA O, O, O, 0,0, O, O, O, O, O 
700 DATA O, O, O, O, O, O, O, O, O, O 
710 DATA O, O, O, O, O, O, O, O, O, O 
720 DATA 0,0, 0, O, O, O, O, O, O, O 
730 DATA 0,0,0, O, O, 0,0, O, 0,0 
740 DATA O, O, O, O, O, O, O, O, O, O 
7S0 DATA O, O, O, O, O, O, O, O, O, O 
7G0 DATA O, O, O, O, O, O, O, O, O, O 
770 DATA O, O, O, O, O, O, O, O, O, O 
700 DATA O, O, O, O, O, O, O, O, O, O 
790 DATA O, O, O, O, O, O, O, O, O, O 
BOO DATA O, O, O, O, O, O, O, O, O, O 
B10 DATA O, O, O, O, O, O, O, O, O, O 


5. PASO : Lista de variables 


A$ = Variable de cadena 

B$ = Denominaciones de variables 

I = Variable índice 

J = Variable índice 

L$ = Nombre de los países 

V = Variables 

X = Campo de datos 

Z = Número del país buscado 


6. PASO : Descripción del programa 


Línea 10-90 


Título y espera 
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Línea 100-130 : Borrado y dfmensí onado 

Línea 140-210 : Requ I r 1 m 1 ento del número del país del 

cual se necesitan Informaciones después 
de ofrecer una lista de países en la pan 
talla. 

Línea 220-290 : Borrado de la pantalla y lectura de 

los datos 

Línea 300 : Inicial Iza el puntero de datos 

Línea 310-330 : Búsqueda del país seleccionado 

Línea 340-410 : Introducción de los nombres de las 

variables 

Línea 430 : Impresión del nombre del país 

Línea 440-520 : Impresión del registro 

Línea 530-540 : Espera 

Línea 550-600 : Consulta si desea otra información 

(en caso afirmativo, borrar la panta- 
lla y volver a la línea 140, en caso 
negativo final del programa) 

Línea 610-660 : DATAS de los nombres de los países 

Línea 670-790 : DATAS de los valores de las variables: 

introducir los valores de tal manera, 
que para la primera variable se den 
todos los valores sobre el primer 
país, para la segunda variable todos 
los valores sobre el segundo país,... 
etc. 


I 


ATENCION : EN EL PROGRAMA APARECEN SOLO CEROS 
(¡ver siguiente paso !) 
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7. PASO : Resultados 

El fichero de datos de este programa contiene únicamente 
ceros, de manera que si hacemos una pasada de prueba, s5lp 
aparecerán ceros en la pantalla. 

Para efectuar una pasada "auténtica", hay que Introducir, 
primero, datos concretos* que el lector puede tomar de la 
tabia siguiente. 

Datos económicos de diferentes países europeos : 

País Pobl. Superf. Produc. Poblac. 

(mili.) (1000 Interior activa 

km2) (10E9) (mili.) 


España 

Francia 

Ital ia 

Reino U. 

RFA . 

Irlanda 

Grec I a 

Bélgica 

Holanda 

SuecI a 

Dinamarca 

Portugal 

Noruega 

Finlandia 

Suiza 

Luxemburgo 

Austria 

Malta 
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País 

Prop. 

Impues. 

Deudas. 

Produc. 


extran- 

tota 1 es 

( 1 0E9 

Indust. 


jeros 

< 1 0E9) 

Ptas. 

(*) 


España 
Francia 
I ta I la 
Reino U. 
RFA 

Irlanda 

Grec la 

Bélgica 

Holanda 

Suecia 

Dinamarca 

Portugal 

Noruega 

Finlandia 

Suiza 

Luxemburgo 

Austria 

Malta 
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9.1 Consideración previa 


Para finalizar Incluimos un capítulo en el que se 
tratan nuevos problemas matemáticos, con un grado de 
dificultad algo mayor que los vistos hasta ahora. De esta 
forma, el usuario experimentado en la utilización del 
microordenador, comprobará que también se pueden abordar 
problemas de mayor complejidad con programas relativamente 
sene! I los. 

Llegados a este punto, podría parecer que el capítulo final 
se halla un poco por encima de las posibilidades del 
principlante (pero es precisamente esto lo que a veces le 
proporciona más Interés). 

Estos problemas de mayor complejidad, deben ser programados 
de tal forma que no requieran instrucciones BASIC 
adicionales. Esto significa, que los programas resultantes 
(al igual que todos ios programas precedentes) no pueden 
satisfacer los niveles de elegancia de ios programadores 
experimentados. Pero esto aquí no tiene Importancia. 
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En contraposición a los anteriores capítulos, aquí seremos 
más breves, pues se van a tratar diecisiete nuevos 
problemas: 

Después de una pequeña presentación del problema y de 
algunas indicaciones con referencia a su análisis, pasamos 
inmediatamente a presentar el programa y terminamos con una 
pequeña descripción del mismo. En adelante prescindiremos de 
los pasos "Diagrama de flujo" y "Resultados", no sólo por 
motivos de espacio, sino porque en cuanto al aspecto de la 
programación pura no introducen nuevos problemas de detalle. 


. ; 


Voss 

Capítulo 

9 : Matemáticas 1 1 

Página 


Punto 

1 : Red 

293 

Colegio 





9.2 Red 


Presentación del problema 

El programa siguiente sirve para trazar en la 
pantalla una red de líneas con separaciones entre líneas y 
columnas variable. 

El esquema mental utilizado como base de estos programas, 
sirve de forma parecida por ejemplo para estructurar tablas 
extensas ton líneas horizontales y verticales. 


Análisis del problema 


Podemos ahorrarnos cualquier explicación acerca del análisis 
del problema. El usuario únicamente debe Introducir las 
distancias entre líneas y entre columnas. El trazado de las 
líneas se efectúa mediante dos bucles FOR-NEXT y la 
instrucción BASIC "UNE". 






10 REfl inil/l# -RETICULA- 

B0 COLOR 15,1,1: SCREEN 0:WI0TH 40 : KEY OFF:CLS 

30 PRINI :• PRINT "PROGRAMA PARA TRA2AR UNA RED EN PANTALLA" 

40 PRINT: PRINT: PRINT ” PROF . DR . U. UOSS, 1384”' 

50 LOCATE 8, 6: PRINT ” " 

60 LOCATE 1,10: INPUT "DISTANCIA ENTRE. COLUMNAS CC<BS63 ”;S 
70 LOCATE 1,16: INPUT "DISTANCIA ENTRE FILAS CF<1S2D ";Z 

80 LOCATE 11, 22: PRINT "PULSE UNA TECLA” 

SO AS-INPUTSC1D 
100 CLS 

110 SCREEN 2: CLS 
120 FOR 1-0 TO 1S1 STEP Z 
130 LINE C0,I3-C255, 13,10 
140 NEXT I 

150 FOR 1-0 TO 255 STEP S 

160 LINE C I, 03-C 1,1313, 10 

170 NEXT I 

180 AS-INPUTSC13 

190 SCREEN O: COLOR 1,15,15 

200 LOCATE 11, 12 .-PRINT "FIN DEL PROGRAMA” : END 




S 

Z 


Variable fndlce 
Separación entre columnas 
Separación entre líneas 
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Descripción del programa; 


Línea 10-50 . ; Título 

Línea 60-70 : Introducción de la distancia entre 

líneas y entre columnas 

Línea 80-100 ; Espera una entrada desde el teclado 

y borra la pantal la 

Línea 110 : Conmutación al modo gráfico de alta 

resolución 

Línea 120-140 : Trazado de las líneas horizontales 

Línea 150-170 : Trazado de las líneas verticales 

Línea 180-190 : Bucle de espera y conmutación al 
modo de texto 

Línea 200 ; Final del programa 
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9.3 La recta 


Presentación del problema 

El programa siguiente sirve para dibujar cualquier recta en 
un eje de coordenadas cuyo origen se sitúa en el centro de 
la pantal la (127,95). 

Análisis del problema 


La posición de una recta queda determinada por dos 
parámetros, la ordenada en el origen A y la tangente del 
ángulo que forma con el eje de ordenadas B, según la 
siguiente ecuación: 

Y¿ = A + B *X¿ 

Dado que el origen de coordenadas debe estar situado en 
(127,95), resulta que: 

Y ¿ = 95 + A + B*(X¿ - 127) 

En todo caso, debemos tener en cuenta que en contraposición 
ai eje de coordenadas normal, los valores de Y empiezan en 
la parte superior de la pantalla (la línea número 0 es la 
línea superior de la pantalla). 

Por esta razón, debe modificarse la función de la forma 
siguiente: 

Y¿ = 127 - (95+A+B * (X¿-127)) 

= 95 - A-B * (X¿-127) 
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10 REM «111/2# -RECTA- 

SO COLOR 15,1, l.-SCREEN 0:UJI0TH 40.-KEY 0FF:CLS 

30 PRINT : PRINT ” -PROGRAMA PARA TRAZAR UNA LINEA RECTA." 

40 PRINT : PRINT: PRINT " PROF . DR . W. UOSS, 1984" 

50 LOCATE 8, 5: PRINT ” 

60 LOCATE 6,10: INPUT "ABCISA EN EL ORIGEN : ”-A 

70 LOCATE 6, 16: INPUT "PENDIENTE DE LA RECTA : 

BO LOCATE 11,22: PRINT "PULSE UNA TECLA" 

90 AS-INPUTSC1D 
100 SCREEN 2:CLS 

110 DRAUi ”BMQ , 95R255BM127 , 00191 ” 

120 FOR X-0 TO 255 
130 Y-95-A-B»CX-127) 

140 IF Y<«0 OR Y>-191 THEN 160 

150 PSET CX, Y), 15 

160 NEXT X 

170 AS-INPUTSC1) 

180 LOCATE 11, 12: PRINT "FIN DEL PROGRAMA” : END 


Lista de variables: 


A = Abe Isa en el origen 
B = Tangenyte del ángulo de pendiente 
I = Contador 

X = Valores sobre el eje X 
Y = Valores de la función 
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i 

i 

i' 

f 


i 


Descripción del programa: 

Línea 10-50 : Título 

Línea 60-70 : Introducción de los parámetros de la 

recta • 

Línea 80-100 : Espera y conmuta a modo gráfico 

Línea 110 : Trazado de los ejes de coordenadas 

Línea 120-160 : Trazado de la recta sobre todo el 

ancho de la pantalla (si los valores 
de Y son no válidos, se salta la 
instrucción) 

Línea 170 : Bucle de espera 

Línea 180 : Final del programa 
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9.4 El círcu lo 


Presentación del problema 

Siguiendo el mismo patrón del punto anterior, 
donde se desarrolló un programa para trazar una recta, de 
nuevo presentamos un programa para dibujar todo tipo de 
círculos. Aquí aparecen problemas ya tratados, de modo que 
seremos breves. 

Análisis del problema 


Nos enfrentamos aquí al mismo problema que en el punto 
anterior, con la diferencia de que aquí tomamos como base la 
ecuación del círculo: 

Esta se expresa de la forma siguiente: 

t l % 

(x - a) + (y - b) = r 

r es el radio del círculo, x e y son las coordenadas de la 
línea circular y a y b son las coordenadas del centro del 
círcu lo. 
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Si despejamos y (resolución de una ecuación cuadrática), 
obtenemos las ecuaciones para el semicírculo superior e 
inferior : 

z t z 

(y - b) = r - (x - a) = D 

y - b SQR(D) 

y = ± b SQR(D) 

Con ello hemos aclarado los aspectos fundamentales de este 
programa: 

Requiere como informaciones de entrada las coordenadas dei 
centro del círculo a y b (que a partir de ahora llamaremos T 
y Z) y el radio r (en BASIC : R). A partir de aquí podrán 
determinarse los valores Y1 e Y2 correspondientes a 
diferentes valores de X y después trazar los puntos X,Y1 y 
X, Y2. 

Debe prestarse atención a que X se mueva Cínicamente en el 
ámbito que va de T-R a T+R, porque fuera de esta zona no hay 
valores de Y definidos dentro del campo real (el valor 
auxiliar D sería negativo, y al tratar de extraer la raíz 
del mismo provocaría un mensaje de error y una interrupción 
del programa. 


f ' 
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10 REM #mi/3# -CIRCULO- 

SO COLOR 15,1,1: SCREEN 0:WIDTH 40:K£Y OFF:CLS 

30 PRINT : PRINT "PROGRAMA PARA TRAZAR UNA CIRCUNFERENCIA” 

40 PRINT: PRINT: PRINT ” PROF . DR . ÜJ. UOSS, 1984” 

50 LOCATE 0,6: PRINT ” “ 

60 LOCATE 2, 10: INPUT "COORDENADA X DEL ORIGEN : 

70 LOCATE 2, 14: INPUT "COORDENADA Y DEL ORIGEN : " 

60 LOCATE 2, 18: INPUT "RADIO DE LA CIRCUNFERENCIA : 

SO LOCATE 11,52: PRINT "PULSE UNA TECLA" 

100 AS-INPUTSCll 

110 SCREEN 2: CLS 

120 DRAUJ "BIIO , 95R255BM127 , QD191 ” 

130 LINE CT.03-CT, 1913,2 

140 LINE C 0 , Z } - C 255 , Z D , 2 

150 A-T-R:B-T+R 

160 IF A<0 THEN A-0 

170 IF 8>2S5 THEN B-255 

1B0 FOR X-A TO B 

190 D-R*R- C X-T ) “ 2 

200 IF D<-0 THEN Y-Z:G0T0 230 

210 Y-Z+SQRCDl 

220 IF Y<0 OR Y> 191 THEN 240 
230 PSET CX, Y3 , 13 
240 NEXT X 

250 FOR X-B TO A STEP -1 
260 D-R*R-CX-T3“2 
270 IF D<-0 THEN Y-Z:GOTO 300 
280 Y-Z-SQRCD) 

290 IF Y<0 OR Y> 131 THEN 310 
300 PSET CX , Y3 , 13 
310 NEXT X 
320 AS-INPUT$ei3 

330 SCREEN 0:C0L0R 15 , 1 , 1 : CLS : LOCATE 11,12:PRINT "FIN DEL P 
ROGRAflA” : END 


HN K 





A 


Punto extremo izquierdo del círculo 

Ííly-'í 

B 

= 

Punto extremo derecho del círculo 

j|£ 

D 

= 

D = R -(X-T) 

lili 

i 

= 

Indice variable 

I ¡v-v 

R 

= 

Radio | 

1||¡ 

T 

= 

Columna del centro del círculo 

m'i 

X 

= 

Valores de coordenada X 

|| 

Y 

= 

Valores de coordenada Y 

m 

ti 

Z 

=s 

Línea del centro del círculo 

■?! 

§ 

••aa 

Descripción del programa 


Línea 10-50 : Título y aclaraciones 

Línea 60-110 : Informaciones y modo gráfico 

Línea 120 : Eje de coordenadas 

Línea 130-140 : Eje de coordenadas auxiliar 

Línea 150-170': Fijación del ámbito de valores de X 

Línea 180-240 : Trazado de un semicírculo 

Línea 250-310 : Trazado del otro semicírculo 

Línea 320-330 : Final del programa 





9.5 La sinusoide 


Presentación del problema 

En este último ejemplo de gráfico de alta 
resolución vamos a representar una oscilación sinusoidal, 
como la que ya nos encontramos en el capítulo "Física". El 
procedimiento a seguir es el mismo que en los dos puntos 
precedentes. 


Análisis del problema 


El análisis del problema es muy sencillo, y no se presentan 
cuestiones nuevas. Unicamente debe procurarse adaptar la 
periodicidad de la oscilación (frecuencia) y su amplitud 
(valor máximo) de forma que la representación gráfica en la 
pantalla sea ópticamente correcta, es decir, que el espacio 
disponible sea aprovechado de forma hábil. 
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10 REM -SENO- 

20 COLOR 15,1,1: SCREEN 0:UIDIH 40: KEY 0FF:CLS 

30 PRINT : PRINT ” PROGRAMA PARA TRAZAR UNA SINUSOIDE." 

40 PRINT: PRINT: PRINT " PROF . DR . ÜJ . UOSS, 1984’’ 

50 LOCATE 8, 6: PRINT ” ” 

60 LOCATE 2 , 12 : PRINT "FRECUENCIA Cen función de ";CHR$C227 
3;” 5 : LOCATE 34, 12: INPUT P 

70 LOCATE 2,16: INPUT "AMPLITUD CDE O A 953 ■ "-A 

80 LOCATE 11, 22: PRINT "PULSE UNA TECLA” 

90 A93-INPUTSC13 
100 SCREEN 2 : CL5 
110 DRAW ”BMO , 95R255” 

120 FOR X-0 TQ 255 

130 J-X/50: J-J*C1/P3 

140 Y-SINCJ3:Y-Y*A 

150 Y-95-Y 

160 PSET CX , Y3 , B 

170 NEXT ,X 

180 AS-INPUTSC13 

190 SCREEN O: COLOR 15 , 1 , 1 : CLS : LOCATE 11, 12: PRINT "FIN DEL P 
ROGRAMA ” : END 
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Lista de variables: 


A = Amplitud 
I = Indice variable 
J = Valor X transformado 
P = Frecuencia 
X = Valor de la abe isa X 
Y = Valor de la ordenada Y 


Descripción del programa 

Línea 10-50 : Título 

Línea 60-100 : Informaciones INPUT y modo gráfico 

Línea 110 : Trazado de una línea centra! 

horizontal 

Línea 120-170 : Determinación de los valores 

de la función y trazado después 
de transformar de acuerdo con P y A 

Línea 180-190 : Impresión del texto y final del 
programa 
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9.6 Tabla matemática 1 


Presentación del problema 


En el programa siguiente se Imprimen los cuadrados y las 
raíces cuadradas de todos los números naturales del 1 al 
100 . 

Este programa debe ser entendido casi como "programa de 
consulta". 

Anál Isis del problema 

Siendo tan sencillo el problema, pensamos que resulta 
superfluo cualquier análisis. 
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10 REM 25-TABLA 1 
20 CLS 

30 PRINT ” PROGRAMA PARA GENERAR LOS CUADRAD-” 

40 PRINT ” DOS Y LAS RAICES CUADRADAS DE TO-” 

45 PRINT ” DOS LOS NUMEROS NATURALES C 1-1003." 

47 PRINT: PRINT 

50 PRINT ” PROF. DR . Ul. UOSS, 1984” 

60 GOSUB 2000: REfl ESPERA 
70 FOR 1-1 TO 100 

80 Q-I*I : UI-SQR C I 3 : W- I NT C W*1 000+ . 5 3 / 1000 
SO PRINT USING ”######.####” : I , Q , W 
100 IF I/15-INTCI/153 THEN GOSUB 2000 
110 NEXT I 

120 LOCATE 10, 20: PRINT "FINAL DEL PROGRAMA” : END 
1000 REM UP CABE2ERA 

1010 LOCATE 5,0: PRINT "NUMERO” : LOCATE 15,0: PRINT "CUADRADO” 
: LOCATE 28,0:PRINT "RAIZ” 

1015 PRINT 

1020 PRINT: RETURN 

2000 REM UP ESPERA 

2020 LOCATE O, 21: PRINT ” PULSE UNA TECLA” : AS- INPU 

TSC13 

2040 CLS: GOSUB 1000 
2050 RETURN 
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i = Indice variable (números naturales 1-100) 

J = Indice variable 

Q = Número cuadrado 

W = Raíz cuadrada 

Descripción del programa 

Línea 10-50 : Título 

Línea 60 : Salto a la subrutina 2000 para la 

espera 

Línea 70-110 : Cálculo e impresión de los valores 

en cuestión 

Línea 100: Después de cada 15 líneas 
salto a la subrutina 2000 
para la espera 

Línea 120 : Final del programa principal 

Línea 1000-1020 : Subrutina para la impresión de la 
cabecera de la tabla 

Línea 2000-2050 : Subrutina para la espera 
Línea 2020 : 

Impresión de un 
mensaje y espera. 

Línea 2040-2050 : 

Borrado de la pantalla, 
impresión de una nueva 
cabecera mediante el 
salto a! UP 1000 y 
después retorno al 
programa principal 



Presentación del problema 


Este programa sirve para ofrecer una tabla de valores de las 
funciones 

- seno (SIN) 

- coseno (C0S.) 


Estas funciones angulares se representan en dependencia del 
parámetro (llamado pi en el programa). Por esto, en la 
tabla resultante aparecen también valores en grados 
angulares. 


Análisis del problema 


Tampoco aquí resulta necesario el análisis del problema, 
dado que no se presentan especiales dificultades. 
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10 REM #mi/Stt -TABLA 1- 

20 COLOR 15,1,1: SCREEN O.-WIDTH 40:KEY OFF:CLS 

30 LOCATE 0,5: PRINT "PROGRAMA PARA DETERMINAR SENOS Y COSE 

NOS" 

40 PR I NT : PR I NT : PR I NT ” PROF. DR . U. UOSS, 1984” 

50 LOCATE B, 10: PRINT ” . ” 

60 LOCATE 11, 22: PRINT "PULSE UNA TECLA" 

70 AS-INFUTSC13 

BO GOSUB 220 

90 FOR J-0 TO 65 

100 I-J/10: I-FIXCI*100+. 53/100 

110 A- C 360* 13 / C 2*3 . 141592654# 3 : A-F I X C A+ . 5 3 

120 B-SINt I 3 : B-FIXCB*1000+ . 53/1000 

130 C-CQSC I 3 : C-FIXCC*10QQ+ .53/1000 

140 LOCATE 4,2: PRINT I: LOCATE 13,2:PRINT A : LOCATE 22,2:PRIN 
T B.-LOCATE 31, 2: PRINT C 
150 2-2+2 

160 IF 2>20 THEN 2-4 
170 IF J-0 THEN 190 

1B0 IF J/8-FIXC J/B3 THEN LOCATE 11 ,22: PRINT "PULSE UNA TECL 
A ” : AS— I NPUTS C 13: GOSUB 220 
190 NEXT J 

200 LOCATE 11,22:PRINT "PULSE UNA TECLA” : AS-INPUTSC 13 : CLS 

210 LOCATE 11, 12: PRINT "FIN DEL PROGRAMA" : END 

220 CLS: 2-4: PRINT ” CHRSC2273 ; " ”;”GRADOS";” 

"SIN”;” ”;”CDS” 

230 PRINT 

240 FOR X-0 TO 39 

250 PRINT 

260 NEXT X 

270 RETURN 
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L 1 sta de 

variables: 




A = Angulo (en grados) 

B = Seno 
C = Coseno 

I = J/10 (=abcísa de ia función angular) 
J = Indice variable (aquí 0-40) 


Descripción del programa: 

Línea 10-50 : Título 

Línea 60-80 : Bucle de espera y salto a la subrutina 

de Impresión de la cabezera. 

Línea 90-190 : Cálculos e Impresión de los resul- 

tados 

Se determinan 66 valores (J=0 TO 65) 
siendo aplicadas las funciones angu- 
lares sobre I = J/10 (línea 102) 

Línea 110 : Transformación en 

grados 

Línea 120-130 : Determinación del 
SIN y del COS 

Línea 140 : Impresión 
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Línea 150-190 ; Bucle contador del nd- 

mero de líneas que se Im 
primen. (SI se imprimen más 
de 8 líneas se borra la pan 
lia, se salta a la subruti 
na se impresión de la ta- 
bla y se siguen los cálcu 
los ) . 

Línea 200-210 : Final del programa principal 

: Subruti na para la impresión de la 
cabecera de la tabla 


Línea 220-270 
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9.8 Tabla matemática 3 


Presentación del problema 


El programa siguiente sirve para imprimir los logaritmos 
neperianos In (X) dentro del ámbito de valores de X que va 
de 1 a 100. 


Análisis del problema 


Debido a la sencillez del problema también prescindimos aquí 
de cualquier análisis. 

V. Í 
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10 REM #1111/6# -TABLA 2- 

20 COLOR 15 , .1 , T : SCREEN O : U3IDTH 40:KEY OFF:CLS 
30 LOCATE 0,3: PRINT "-PROGRAMA PARA DETERMINAR LOS UALORES 
DE" 

40 LOCATE 7, 7: PRINT "LOS LOGARITMOS NEPERI ANOS . ” 

SO PRINT: PRINT: PRINT: PRINT: PRINT ” PROF . DR . W. UOS 

S, 1984" 

60 LOCATE 8, 14: PRINT ” 

70 LOCATE 11, 22: PRINT "PULSE UNA TECLA" 

60 AS-INPUTSC13 
90 GOSUB 200 
100 FOR 1-1 TO 100 
110 L-L0GCI3 

120 L-FIXCL*10000+. 53/10000 

130 LOCATE 9, Z: PRINT I : LOCATE 23, 2: PRINT L 

140 Z-2+2 

150 IF Z>20 THEN 2-4 

160 IF I/0-FIXCI/B3 THEN LOCATE 11,22:PRINT "PULSE UNA TECL 
A ” : AS— I NPUTS C 1 3 : GOSUB 200 
170 NEXT I 

ISO LOCATE 11, 22: PRINT "PULSE UNA TECLA" : AS-INPUTSC1 3 : CLS 
190 LOCATE 11, 12: PRINT "FIN DEL PROGRAMA" : END 
200 CLS : Z-4 : PR I NT ” "NUMERO”;” ” ; "LOGAR ITM 

0” 

210 PRINT 

220 FOR X-0 TO 39 

230 PRINT 

240 NEXT X 

250 RETURN 
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Lista de variables : 


l = Indice variable (aquí 1-100) 
L = Logaritmo neperlano de ! 


Descripción del programa: 

Línea 10-60 : Título 

Línea 70-80 : Bucle de espera. 

Línea 90 : Salto a la subrutlna de Impresión de 

la tabla. 

Línea 100-170 : Cálculo de los logaritmos e Jmpre 

slón, después de cada 8 líneas 
de la tabla esperar 

Línea 180-190 : Final del programa principal 

Línea 200-250 : Subrutlna para la Impresión de la 

cabecera de I a tab I a 





Presentación de¡ problema 


El programa dibuja una .elipse. Para ello deben 
introducirse los siguientes valores. 

¡ T: Columna del .centro de la elipse (0-319) 

| Z: Línea del centro de. la elipse (0-159) 

A: Primer semieje de la elipse 
B: Segundo semieje de la elipse 

I 

i 

i 

} 

i 
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Análisis de! problema 


La ecuación de la elipse en la llamada forma central 
(centro de la elipse en el centro del eje de 
coordenadas) : 


- + - = 1 
a b 

Para poder dibujar una función como esta mediante un 
programa BASIC, debemos despejar y, resultando: 



Si tenemos en cuenta que una elipse no sólo puede 
tener su punto central en la coordenada (0,0), sino 
también en una cualquiera (T,Z)^ resultan necesarias 
correcciones mediante traslación del mismo (ver la 
siguiente descripción de programa). 


J 

í 

i 
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10 REn #NII/7# -ELIPSE- 

SO COLOR 15,1,1: SCREEN 0:WIDTH 40:KEY OFF:CLS 

30 PRINT ” ALGOR I TriO PARA EL TRAZADO DE ELIPSES” 

40 PRINT: PRINT " PROF . DR . lü. UOSS, 1384” 

50 LOCATE 8, 3: PRINT ” " 

60 PRINT: PRINT: PRINT " «COORDENADAS DEL CENTRO DE LA ELIPS 
E: ” 

70 PRINT: PRINT: INPUT ” -Coordenada x CcolumnaJ : ”;T 

BO PRINT: INPUT ” -Coordenada y CFila) : ”;2 

SO PRINT: PRINT: PRINT ” «LONGITUD DE LOS EJES DE LA ELIPSE 

, M 

100 PRINT:PRINT: INPUT ” - 1. Semieje : ”;A 

110 PRINT: INPUT " - 2. Semieje : ”¡B 

120 LOCATE 11 ,22: PRINT "PULSE UNA TECLA” 

130 AS-INPUTSC 1 3 

140 SCREEN 2 : CLS 

ISO REN EJES CARTESIANOS 

160 DRAUi ”BNO , 95C8R25SBN1H7 , 0D1S1 ” 

170 REN ELIPSE 

180 C-T-A:D«T+A 

130 IF C<0 THEN C-0 

200 IF D>255 THEN D-2SS 

210 FOR X-C+l TD D-l 

220 D5-CB/A5*SQRC A*A-CX-T1 ”21 

230 Y-Z+DS 

240 IF Y<0 OR Y> 131 THEN 260 
250 PSET CX , Y5 , 15 
260 NEXT X 

270 FOR X-D-l TO C+l STEP -1 
280 DS-CB/A}*SQRCA*A-CX-TJ"2) 

230 Y-Z-DS 

300 IF Y<0 OR Y> 131 THEN 320 
310 PSET CX,YJ,15 
320 NEXT X 
330 AS-INPUTSC1) 

340 SCREEN 0:CLS:LQCATE 11, 12: PRINT "FIN DEL PROGRANA” 
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Lista de 

variables: 




A = Primer semieje de la elipse 
B = Segundo semieje de la elipse 
C = Extremo izquierdo de la elipse 
D = Extremo derecho de la elipse 

DS = Valor auxiliar tomado de la ecuación de la elipse 
I = Indice variable 

T = Columna del punto central de la elipse 
X « Abcisa 
Y = Ordenada 

Z = Línea del punto central de la elipse 
Descripción del programa 


Línea 10-50 : Título 

Línea 60-130 : Fijación de las coordenadas del 

punto central y de los semiejes 

Línea 140 : Modo gráfico y borrado de pantalla 

Línea 150-160 : Trazado de los ejes de coordenadas 

Línea 170-260 : Trazado de la mitad inferior de la 

el ipse 

Línea 270-320 : Trazado de la mttad superior de la 

el Jpse 

Línea 330-340 : Final del programa 







Presentación de i problema 


Este programa representa gráficamente la distribución de 
Gauss. 

Tiene la función de densidad 


1 




MM y SS son los parámetros de posición carácter i z adores 
(ver el esquema siguiente): 

MM designa el valor medio de ¡a distribución 
SS designa la dispersión de la distribución 
(desviación estándar = distancia entre la 
línea central y cualquiera de ios dos puntos 
de inflexión de la distribución). 


En este programa seleccionado ios siguientes valores : 

MM = 160 
SS « 40 



Nuevamente prescindible 






10 REM ttUII/Bt -GAUSS- 

20 COLOR 15,1,1: SCREEN 0:úJIÜTH 40:KEY OFF:CLS 

30 PRINT ” ALGORITMO PARA REPRESENTAR GRAFICAMENTE" 

40 PRINT ” LA DISTRIBUCION NORMAL SEGUN EL METODO » 

50 PRINT ’’ DE GAUSS." 

BO PRINT: PRINT " PROF . DR . U. UOSS, 1984” 

70 LOCATE 8, 7: PRINT * 

80 LOCATE O, 10: PRINT "Este programa traza la distribución 
ñor-” 

90 PRINT "mal con el valor medio 127 y la desvia-” 

100 PRINT ”cí6n estándar 40.” 

110 PRINT: PRINT "Estos parámetros pueden modificarse para” 
120 PRINT "cada caso Clínea 1603.” 

130 LOCATE 11, 22: PRINT "PULSE UNA TECLA” 

140 AS-INPUTSC13 
150 SCREEN 2 : CLS 
160 MM-127:SS-40 

170 DRAU) "BMO , 191C15R255BM127 , 0D191 ” 

180 REM DISTRIBUCION NORMAL 

190 A-1/CSS»SQRC2*3.141592654#33 

200 FOR X-0 TO 255 

210 B**C CX-MM3/553 "2 

220 B-.5*B*C~13 

230 Y-A*EXPCB3 

240 Y-C600000! /SS3»Y 

250 Y-191-Y 

260 IF Y<0 OR Y> 191 THEN 280 

270 PSET CX , Y3 , 0 

280 NEXT X 

290 A$**INPUTSC 1 3 

300 SCREEN O: CLS 

310 LOCATE 11 ,12: PRINT "FIN DEL PROGRAMA" 
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Lista de 

variables: 




A = Primer término de ia ecuación funcional 
B = Exponente en ¡a ecuación funcional 

I = Indice variable 

MN = Valor medio de la distribución normal 
SS = Desviación estándar de la distribución normal 
X = Abcisa 

Y = Ordenada 


Descripción del programa 


Línea. 10-120 : Título y aclaraciones 

Línea 130-140 : Espera 

Línea 150-160 : Definición de Tos parámetros de la 

función de distribución y modo 
gráfico 

Línea 170 : Trazado de unos ejes de coordenadas 

Línea 180-280 : Cálculo de los valores de ordenada 

de la distribución normal, normali- 
zación (línea 240) y trazado de la 
curva 

Línea 290-310 : Final del programa 






9.11 Regresión 
V; — — — 

I; 

¡r 

(i 

Presentación del problema 


El cálculo de regresiones constituye una cuestión 
Importante dentro del campo de la estadística matemática. Se 
trata de describir una distribución estadística blvarlable 
mediante una función matemática. 

Una distribución estadística blvarlable se produce, por 
ejemplo, cuando estudiamos simultáneamente dos 
características de una población, es decir, si consultamos a 
una serie de personas acerca de su tamaño y de su peso al 
mismo tiempo. 

El objetivo de una Investigación como ésta, es descubrir si 
existe alguna relación entre ambas variables. 

Una distribución bivarlable puede representarse gráficamente 
en un sistema de coordenadas bldimensiona I por medio de una 
"nube de puntos", como puede apreciarse en la página 
siguiente. 
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Para describir el tipo de relación existente entre 
ambas variables, o para determinar la tendencia lineal 
en una serie de tiempos, que desde el punto de vista 
matemático es el mismo problema, se Intenta encajar de 
la mejor forma posible una función matemática lineal 
entre los puntos. 


Del mismo modo, existen directrices de calculo no 
lineales, pero que aquí ño serán tratadas. 


Colegio 






La función ¡íneal o no lineal que tratamos de dibujar 
se determina, por regla general, con el método de los 
mínimos cuadrados. 


Este método nos da unas directrices de cálculo para 
determinar los parámetros de la función. En el caso de 
una recta, se trata de la ordenada en el origen A y de 
la pendiente B. 


El método de los mínimos • cuadrados nos exige 
determinar los parámetros de forma que la suma de los 
cuadrados de las desviaciones entre los valores de 
ordenada y (coordenadas verticales) observados y los 
valores de ordenada de la- recta y deben ser 
minimizados, es decir: 



Los valores de .y se calculan del modo siguiente con 
la ecuación de la recta: 


y¿ = a + b*x,¿ 


Con la regia de minimizaclón antes citada resulta: 
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z 

) (y^ - a - b*x¿ > - mtn. 

El mínimo de esta función se halla realizando una 
derivada parcial segón a y b e Igualando estas dos 
derivadas parciales a cero. 

De esta forma se obtienen dos ecuaciones con dos 
incógnitas (a y b), en las que éstas se habrán de 
despejar. Se obtienen así las dos ecuaciones: 


n -£ x¿£ y; 



n n 


El programa BASIC a desarrollar sirve para calcular 
estos parámetros segán el método de los mínimos 
cuadrados para cualquier par de valores x ,y que se 
introduzca y para a continuación imprimir los 
resaltados. 
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PRINT ” PROGRAMA PARA DETERMINAR LOS PARAMETROS ” 

PRXNT " DE UNA FUNCION LINEAL DE REGRESION 0 DeH’ 

PRINT ” UNA RECTA DE TENDENCIA." 

PRINT: PRINT " PROF. DR . W . UOSS 1984” 

LOCATE 8,7: PRINT ” LZu 

LOCATE 0,11: PRINT ” Esta programa requiera pares de val 


10 REfl #mi/9# -REGRESIQN- 

20 COLOR 15,1,1: SCREÉN 0:UI0TH 40:KEY OFF • CLS \ 

30 PRINT ” PROGRAMA PARA DETERMINAR LOS PARAMETROS” 

40 PRINT ” DE UNA FUNCION LINEAL DE REGRESION 0 D& 

50 PRINT ” UNA RECTA DE TENDENCIA." 

60 PRINT: PRINT " PROF. DR . W . UOSS 1984” 

70 LOCATE 8,7: PRINT ” _1__» 

80 LOCATE O, 11: PRINT ” Esta programa requiere pares de val 
ores 

90 PRINT ” como informaciones de entrada CP E va-” 

X = Y S valores de tiempo y carao" 

110 PRINT teristica, etc... ” 

120 LOCATE 11, 22: PRINT "PULSE UNA TECLA” 

130 AS-INPUTSC15 
140 CLS 

Ta d?“«ni’Ícn 5 NPUI ” CmNTDS PfíRES DE WL0RES : 

170 CLS 

ISO F0R fl í-l 5 TD : N RINT ” INTRDDUZCA L0S PfíRES DE UALORES" 

200 LOCATE 13, 7: PRINT "PAR NUMERO - X 

210 LOCATE 10, 12: PRINT "UALOR DE X • "-tnrftTP 

30, 12: INPUT Z1 ' . LUCATE 

220 LOCATE 10, 1G: PRINT "UALOR DE Y ” • LOCATF 

30, 16: INPUT 22 . LULATE 

230 XCI5-Z1:YCI5-Z2 
240 NEXT I 
250 GOSUB 560 
260 FOR 1-1 TO N 

RINT L Ytn E S ’ P:PRINT IlLDCflTE 17. P. PRINT XC1 1 : LOCATE 31.P.P 

PUTS C 1 5 P EDSUB H SS0 L0CAIE U - 22:PRIOT " PULSE «N TECLA» : 

290 P-P+2 
300 NEXT I 

310 LOCATE 11, 22: PRINT "FIN DEL CONTROL” 

320 A$-INPUT$C15 : CLS 
330 FOR 1-1 TO N 

340 si-si+xcn*Ycn 
350 S2-52+XCI5:S3-S3+YCI5 



Voss 

CapTtu lo 

9 

: Matemáticas i I 

Página 

Colegio 

Punto 

11 

: Regresión 

329 


360 S4-54+XCI5*XCI5 
370 NEXT I 

380 B~CN*S1-S2*S35/CN*54-S2*S25 

390 A-S3/N-B*S2/N 

400 B-FIXCB*10000+. 55/10000 

410 A-FIXCA*10000+. 55/10000 

420 LOCATE 15,0: PRINT "RESULTADO” 

430 LOCATE 3, 8: PRINT "ORDENADA EN EL ORIGEN A - ”;A 

440 LOCATE 3, 12: PRINT "PENDIENTE B - ”;B 

450 LOCATE 11, 22: PRINT "PULSE UNA TECLA" 

460 AS-INPUTSC15 
470 CLS 

480 LOCATE O, 5: PRINT ” CON ESTOS PARAMETROS PUEDE LLAMARSE 
AL" 

490 LOCATE O, 8: PRINT “ PROGRAMA PARA EL TRAZADO DE UNA RECT 
A, ” 

500 LOCATE O, 11: PRINT ” SI DESEA OBTENER TAMBIEN UNA REPRES 
EN-” 

510 LOCATE O, 14: PRINT ” TACION GRAFICA DEL RESULTADO." 

520 LOCATE 11, 22: PRINT "PULSE UNA TECLA" 

530 AS-INPUTSC15 

540 CLS : LOCATE 11.12.-PRINT "FIN DEL PROGRAMA” : END 

550 REM SUBRUTINA 

560 CLS: LOCATE 17,0: PRINT "CONTROL" 

570 P-6 

580 LOCATE O, 3: PRINT " No. Ualor X Ualor Y” 

590 FOR T-0 TO 39.-L0CATE T,4:PRINT ”-”;:NEXT T 
600 RETURN 
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Lista de variables: 


A = Ordenada en el orlgn de la recta 
B = Pendiente de la recta 
I = Indice variable 

N = Número de pares de valores 

51 - 1 

52 = > Sumas auxiliares para calcular 

53 = í B y A 

S 4 - J 

X =* Abclsa 

Y = Ordenada 

Z1 = Campos auxiliares para 

Z2 - la Introducción de datos 
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Descripción del programa: 


Línea 10-140 : Título, aclaraciones y espera 

Línea 150-160 : Indicación del número de pares de 

valores de la característica y 
dlmenslonado 


Línea 170-240 : Introducción de los valores de la 

característica mediante 1NPUT 

Línea 250 : Impresión de la tabla 

Línea 260-300 : Impresión de control de los pares 

de valores y pausa después de 16 
pares 


Línea 310-320 


Espera 


Línea 330-370 : Formación de las cuatro sumas 

necesarias en }as fórmulas para A 
y para B 

Línea 380-410 : Cálculo de los parámetros de la 

recta A y B 


Línea 420-470 : Impresión de los resultados 

Línea 480-540 : Indicación para blfurcar y final 

del programa 


Línea 550-600 : Subrutina de Imprimir la tabla 
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9.12 Permutaciones 


Presentación del problema 


El ^ cálculo de permutaciones responde a la cuestión de 
cuántas formas distintas pueden ordenarse diferentes 
e I ementos . 


Análisis del problema 


SI por ejemplo tenemos tres elementos distintos a, b, y c, 
pueden distinguirse las siguientes poslbllldads de 
ordenación: 

abe, acb, bac, bea, cab, cba 

Es decir, que con tres elementos se obtienen seis 
posibilidades distintas de ordenación. 

Generalmente se cumple la siguiente regla: 


Voss 

Capítulo 

9 

: Matemáticas II 

Página 

Colegio 

Punto 

12 

: Permutaciones 

333 


Para el primero de los tres elementos existen tres 
posibilidades : puede estar en primer lugar, en segundo 
lugar o en tercer lugar; 

entonces, para el segundo elemento existen solamente dos 
posibilidades cuando se ha decidido ya dónde debe colocarse 
el primer elemento. 

Esto significa, no obstante, que los dos primeros juntos 
tienen 3*2=6 posibilidades. 

Para el tercer elemento- ya sólo queda una posibilidad y para 
los tres elementos 3*2*1 = 6 posibilidades distintas de 
ordenación. 

De la misma forma, cuando se tienen n elementos distintos, 
resulta: 

Número de posibilidades de ordenación = 
n*(n-1 )*(n-2)*(n-3)*.. .*3*2*1 

Esta cadena de productos se' - resume mediante n! (n 
factorial), y se dice que n elementos pueden ordenarse de n 
factorial formas distintas, o : 

que la permutación de n elementos distintos es n-f actor la I 
(n!). 

Debe tenerse en cuenta que para valores de n elevados la 
expresión n! crece muy rápidamente. Es más, crece tan 
rápido, que el ordenador ya no puede representar el 
resultado de 34! a partir de n = 34. 






10 REM #MII10# -PERMUTAC I ones- 

20 COLOR 15, 1, l.-SCREEN O.-UIDTH 40:KEY OFF:CLS 

30 PRINX ” PROGRAMA PARA DETERMINAR EL NUMERO DE” 

40 PRINT ” PERMUTACIONES DE N ELEMENTOS TOMADOS DE” 

50 PRINT ” N EN N.” 

60 PRINT: PRINT ” PROF . DR. U. UOSS, 1SB4” 

70 LOCATE 8, 7: PRINT " ” 

80 LÓCATE O, 10: PRINT ” Este programa calcula el factorial 
Cn! )” 

30 PRINT ” del valar indicado por el usuario.” 

100 LOCATE S , 15: INPUT “NUMERO DE ELEMENTOS n : ”;N 

110 P-N 

120 IF N>48 DR N<0 THEN 100 

130 IF N-0 OR N-l THEN P-1:B0T0 170 

140 FOR I-N-l TO 1 STEP -1 

150 P-P»I 

160 NEXT I 

170 LOCATE 8,18: PRINT "EL FACTORIAL DE ”;N ; ” ES LOCATE 9 
, 20: PRINT P 

1B0 LOCATE 11 ,22: PRINT "OTRO CALCULO CS/ND” 

ISO AS-INKEYS 

200 IF AS-”S” OR AS-”s” THEN CLS:BOTO 10 
210 IF AS-”N” OR AS-”n” THEN 220 ELSE 130 
220 CLS; LOCATE 11, 12: PRINT "FIN DEL PROGRAMA” 


Lista de variables: 



A$ = Variable de cadena para las respuestas 
1 = Contador 

N = Número de elementos 
P = Producto intermedio y final 
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Descripción del programa: 

Línea 10-90 : Título y aclaraciones 

Línea 1 00—1 1 0 : Demanda de la información INPUT 

(número de elementos a permutar N) 
el campo del producto P toma el 
valor del campo, como primer factor 
de la cadena de productos a realizar 

Línea 120-130 : Comprobación de que no se exceden 

los límites de cálculo del ordena 
dor. 

Línea 140-160 : Formación de la cadena de productos 

en el campo P 

Línea 170 : Impresión del resultado 

Línea 180-220 : Final del programa, a menos que se 

desee continuar calculando 
(entonces seguir en la línea 10 una 
vez borrada la pantalla) 







Presentación del problema 


E! problema es similar al del programa anterior, 
calculándose la cantidad de formas distintas en que pueden 
seleccionarse k elementos de entre n elementos distintos. 
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+ 3a b + 3ab + b 


b + 3a l b* + 3a* b 1 + 1a°b* 

(*)aV + (*)aV + (Jja'b* + 


+ ())aV 


Como puede observarse, todo b.inomio se descompone en 
sumandos. Siempre hay un sumando más que el indicado 
por el exponente del binomio (el exponente en el 
tí i timo ejemplo era 3; el námero de sumandos 4). 


Cada sumando consta de 3 factores : 


- una constante (el coeficiente binomial que aquí 
nos ocupa) 

- factor "a elevado..." con un exponente, que 
partiendo del exponente del binomio (aquí 3) 
baja hasta Oj 

- factor b "b elevado a..." con un exponente, 
que partiendo de 0 sube hasta el exponente 
del binomio (aquí 3). 


En el coeficiente binomial que nos ocupa, el mayor 
valor es el exponente del binomio (aquí 3); el valor 
menor es un nflmero entero que va ascendiendo de 
derecha a izquierda desde 0 hasta el exponente del 
binomio. 


El programa presentado^" determina cualquier coeficiente 
binomial, permitiéndonos calcular fác i I mente también 
binomios más compiejos (p.e. (a+b)^). 

Pero este programa puede utilizarse también para 
cálculos, como se demoostrará en los próximos 
programas. 

Finalmente, un programa de este tipo, permite 
responder p.e. a la siguiente cuestión: 


i 
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•« g corredores sstán 3 punto de comenzar una carrera, 
de 100 m lisos. Cuántas posibilidades diferentes 
existen de reparto de ¡as tres primeras posiciones.?" 


Respuesta: 











10 REM #111111# -COnBI NACIONES- 

SO COLOR 15 ,1,1: SCREEN 0:U1IDTH 40:KEY OFF:CLS 

30 PRINT “ PROGRAMA PARA DETERMINAR EL NUMERO DE*' 

40 PRINT ” COMBINACIONES DE N ELEMENTOS TOMADOS DE” 

50 PRINT ” K EN K.” 

50 PRINT: PRINT ” PROF . DR . U) . UOSS, 1984” 

70 LOCATE 8, 7: PRINT ” ” 

80 LOCATE 5 , 15 : INPUT "NUMERO DE ELEMENTOS N : ”;N 

90 LOCATE 5, 17: INPUT "NUMERO SELECCIONADO K : ”;K 

100 Y-N-K 

110 IF K-0 OR K-N THEN BK-1:G0T0 S10 
ISO IF K>N/2 THEN H-Y:Y-K:K-H 
130 GOSUB 300 
140 PX-A.-A-N • 

ISO IF PX-1 THEN PN— N : GOTO 200 

160 FOR I-N-l TO N-K+l STEP -1 

170 A-A*I 

180 NEXT I 

190 PN-A 

SOO BK-PN/PX 

S10 CLS 

530 PRINT ” #S O L U C 10 Ntt” 

230 PRINT ” ” 

S40 LOCATE 3, 5: PRINT ”EL NUMERO DE COMBINACIONES DE ";N 
250 LOCATE 2, 8: PRINT "ELEMENTOS TOMADOS DE ";K;” EN ”;K;" E 
S: " 

2B0 LOCATE 14, 12: PRINT BK 

270 LOCATE 11, 20: PRINT "PULSE UNA TECLA" 

280 A$-INPUT$C1) 

290 CLS: LOCATE 11, 12: PRINT "FIN DEL PROGRAMA” : END 
300 REM SUBRUTINA 

310 A-K 

320 IF K-0 OR K-l THEN A-1:G0T0 
330 FOR I-K-l TO 1 STEP -1 
340 A-A*I 
350 NEXT I 
360 RETURN 








I 
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Lista de 

var lab les: 





A = Factorial (producto Intermedio y final) 

BK = Coeficiente btnomla! 

H = Valor auxiliar en el cambio de K por Y 
I = Indice variable (factor en el cálculo del 
factorial ) 

K = Número de elementos a elegir 

N = Número de elementos 

PN = Primer factorial en el coeficiente blnomlal 

PX = Segundo factorial en el coeficiente blnomlal 
Y * Y-K 
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Descripción del programa: 

Línea 10-70 : Título y aclaraciones 

Línea 80-90 : Introducciones (número de elementos 

N y número de elementos a elegir K) 

Línea 100 : Definición del valor auxiliar Y 

Línea 110 : Cálculo simplificado para K=0 ó K=N, 

porque por deflclnlclón se cumple que 


/ N *1 

'n\ 

\ 0 / 

iJ 


Línea 120 


Línea 130 

Línea 140-190 : Cálculo de otro factorial, que queda 

después de reducir (ver p.e. problema 
de los corredores de antes). 

Línea 200-290 : Cálculo e Impresión del coeficiente 

blnomlal y final del programa princi- 
pal. 


: Intercambio de K y (N-K) (=Y) para 
K>N/2. Esto es posible porque se cum- 


/ N ^ 

i N! 

- 

N \ 

u 

1 K ! ( N-K ) I 


N-K j 


De este modo se simplifican los cál- 
culos siguientes. 

: Cálculo de K! en la subrutlna 300 


Línea 300-360 


Cálculo de K! en una subrutlna 
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Presentación del problema' 

Vamos a confeccionar un programa que calcula 
las posibilidades de pre lo en la lotería (6 entre 
49). 


Análisis del problema 

El programa calcula la probabilidad de conseguir 3, 4, 
5 ó 6 aciertos en la lotería (6 de 49). 

Las correspondientes probabilidades se calculan con la 
siguiente fórmula : 

(x) O ■ B1*S2 

PCX) '= 

O 

X es el n Omero de aciertos que debe indicar el 
usuario. 

En suma, aquí tenemos que operar con tres coeficientes 
binomiales (B1,B2 y B3), que ya conocemos del capítulo 
anterior. 

Por este motivo nos ahorramos ahora cualquier otra 
exp I icación. 
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10 REH #MII12# -LOTERIA- 

20 COLOR 15,1, l.-SCREEN 0:WIDTH 40 : KEY OFF.-CLS 

30 PRINT "PROGRAMA PARA DETERMINAR LA PROBABXLI-” 

40 PRINT "DAD DE ACERTAR 3,4,5 ñ B NUMEROS EN LA” 

50 PRINT "LOTERIA C6 DE 43).” 

BO PRINT: PRINT ” PROF . DR . ül . UDSS , 1384” 

70 LOCATE 8, 7: PRINT ” ” 

80 LOCATE 0,12: PRINT "ESTE PROBRAMA NO CONSIDERA LA POSIB 
I L I - ” 

SO LOCATE 0,15: PRINT ”DAD DE ACERTAR 5 Y EL NUMERO ADICION 
AL I ” 

100 LOCATE 11 ,22: PRINT "PULSE UNA TECLA" 

110 A$«INPUT$C1) 

120 CLS 

130 LOCATE 5,11: INPUT "CUANTOS ACIERTOS ? : ”;X 

140 IF X~6 THEN B1“1:B2~1: GOTO 400 

150 REM B1 

1B0 IF X-5 THEN Bl-B: B2-43: GOTO 400 

170 Y-6-X 

180 P«X 

130 FOR I-X-l TO 1 STEP -1 
200 P-P*I 
210 NEXT I 
220 P1-P:P“Y 

230 FOR I-Y-l TO 1 STEP -1 
240 P-P*I 
250 NEXT I 
260 P2-P 

270 Bl-720/CPl*P2) 

280 REM B2 

230 X-Y 
300 P-43 

310 FOR I-P-l TO 43-X+l STEP -1 

320 P-P*I 

330 NEXT I 

340 Pl-P 

350 P-X 

3B0 FOR I-X-l TO 1 STEP -1 
370 P-P*I 
380 NEXT I 





330 P5-P:B3-P1/P2 

400 R£M B3 

410 FOR 1-1 TQ 5 

420 Pl-Pl»C4S-n 

430 P2-P2*C6-U 

440 NEXT I 

450 B3-P1/P2;LÜ-CB1*BHD/B3 
4B0 CLS 

470 IF X-2 THEN X~4 

480 LOCATE 11, O: PRINT "RESULTADO” 

490 LOCATE 11, 1:PRINT ” 

500^ LOCATE 0,7:PRINT ”LA PROBABILIDAD DE ACERTAR ”;X ; " NUflE 
ROS” 

510 LOCATE 0,11: PRINT ”EN LA LOTERIA ES 
520 LOCATE 9 ,15: PRINT U I 

530 LOCATE 11, 22: PRINT "OTRO CALCULO CS/N)” 

540 AS-INKEYS 

550 IF A$“"S” OR AS””s” THEN 10 

560 IF A$**”N” OR AS-”n” THEN 570 ELSE 540 

570 CLS: LOCATE 11,12:PRINT "FIN DEL PROGRAMA” : END 


m 
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Lista de variables: 


AS = Variable de cadena para introducir respuestas 
B1 = Primer término en la fórmula de cálculo 
B2 = Segundo término en la fórmula de cálculo 
B3 = Tercer término en la fórmula de cálculo 
P = Producto en el cálculo de factoriales 
P1 = Primer factorial del coeficiente bfnomial 
P2 = Segundo factorial del coeficiente blnomlal 
W = Proba! I idad 
X = Número de aciertos 
Y = 6-X 
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Descripción de¡ programa: 
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9.15 Distribución binomiai 


Línea 10-100 : Título y aclaraciones 

Línea 110-120 : Bucle.de espera y borrado pantalla 

Línea 130 : Introducción del ndmero de aciertos 


Línea 140 : Para X=6 se cumple que B1=B2=í (ver 

programa Z10); seguir en la línea 
400 


Línea 150-270 : Determinación de B1 de acuerdo con 

las reflexiones hechas ya con re- 
ferencia al programa Z10 

Línea 280-390 : Del mismo modo, determinación del 

segundo coeficiente binomiai B2 

Línea 400-440 : Lo mismo con ,B3 


Línea 450 : Cálculo de la probabilidad W 

Línea 460-520 : impresión del resultado 

Línea 530-570 : Final del programa principal, a 

menos que se desee un nuevo cálculo 



Presentación del problema 


La distribución binomiai es una distribución d.e 
probabilidades. Las distribuciones de probabilidades, a su 
vez, sirven para calcular -de la forma más sencilla posible- 
probabilidades, incluso en problemas complejos. 

La distribución binomiai es también muy importante, porque 
sirve de "base" para toda una serle de procedimientos de 
cálculo de probabilidades. 

La distribución binomiai responde a la siguiente cuestión: 

¿Cuál es la probabilidad de que en n intentos independientes 
entre sí se produzca x veces el suceso favorable, si en 
cada intento sólo son posibles dos resultados, y si la 
probabilidad de que se produzca este suceso favorable en un 
intento es del P 

Sirva el siguiente ejemplo para ilustrar esta cuestión : 
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¿Cuál es la probabilidad de que echando 10 veces una moneda 
nos salga p.e. 5 veces. cara? 

Este es un caso de aplicación de la distribución binomlal, 
pues en cada intento son posibles dos sucesos ("cara" y 
"cruz”) y los intentos (las tiradas) son independientes 
entre sí. 

Otro problema de este tipo sería : 

¿Cuál es la probabilidad de que de cada 5 nacimientos 2 sean 
niña? 


Anál i sis del problema ’ 


Para analizar el problema en cuestión nos ocuparemos en 
primer lugar del ejemplo citado en último lugar : 

Si de cada cinco nacimientos dos deben ser niñas. Ja 
siguiente "combinación de nacimientos" podría responder al 
problema : 

NA NA NO NO NO (NA = niña, NO = niño) 

También sería valida la siguiente combinación : 

NO NO NO NA NA 


y también muchas otras 




El número total de comb i naciones "favorables" puede hallarse 
con ayuda del cálculo de permutaciones, tal como a 
comentamos. 


Sin ser nuestra Intención el demostrar este extremo, 
calculamos que el número de posibilidades de combinación de 
2 niñas y 3 niños es: 

5! 5*4*3*2*1 

Número = 

2! * 3! 2*1 * 3*2*1 

5*4 

2*1 

Generalmente, el número de disposiciones distintas de n 
elementos, de los que x son Iguales (en el sentido de 
"favorables") y otros n-x son también Iguales (en el 
sentido de "desfavorables"), es : 

n ! 

Número = 

x¿!*(n-x¿) ! 







Para seguir con el análisis del problema nos basaremos en 
que la probabilidad de que nazca una niña es P = 0.5 - esta 
es la probabilidad de que se produzca un suceso favorable en 
un Intento. 

Contemplemos el resultado siguiente : 

NA NA NO NO NO 

¿Cuál es la probabilidad de que se produzca un resultado así 
en cinco Intentos? 

Contemplemos en primer lugar el nacimiento de una niña ; La 
probabilidad de que se produzca es lógicamente 0.5. 

La probabilidad de que los dos primeros nacimientos juntos 
sean niña es entonces 0.5 * 0.5 (en general P * P). 

La probabilidad de que nazca un niño es 1 - 0.5 (en general 
I - P). De esta manera, siguiendo el mismo procedimiento de 
arriba, la probabilidad de que el tercero, el cuarto y el 
quinto nacimiento sean niño es : 
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' (1 - Q.5)*(1 - 0.5)*( 1 - 0.5) 
o, en general : 

(1 - P)*Í1 - P)*(1 - P) 

Para la combinación NA NA NO NO NO obtenemos en total la 
probabilidad siguiente (escrita de forma general) : 


P * P * P (1 - P)*(1 - P)*(1 - P) 
» ? Z * (1 - P)* 

y¿ n-'Xi 

= p * (i - P) • 


En nuestro ejemplo obtenemos : 

Probabilidad para NA NA NO NO NO = 

t f'l 9 " 

0.5 * (1 - 0.5) = 0.5 = 1/32 

Pero, en el ejemplo que nos ocupa hay 10 posibles 
combinaciones distintas NA, NO . 
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^ s > a partir de 10 posibles combinaciones, con una 
probabilidad de 1/32 cada una, se obtiene. : 

Probabilidad de que de 5 nacimientos 2 sean 
niña * 10 * 1/32 = 10/32 = 31.25 % 

Este ejemplo nos permite Inducir la siguiente fórmula 
general : 

La probabilidad de que en n Intentos se produzca x 
veces el suceso favorable, cuando I a probabl I Idad 
Individual de producirse un suceso es P, se calcula 
del modo siguiente : 

„ n! *t 

w = * p * u- P ) 

! * ( n-x¿) ! 

Esta fórmula parece complicada, pero su programación 
resulta relativamente sencilla. 
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10 REM #111113# -BINOflI AL- 

BO COLOR 15, 1,1: SCREEN 0:WIDTH 40: KEY OFF:CLS 
30 PRINT "PROGRAMA PARA CALCULAR LAS PR08ABILIDA-” 

40 PRINT ”DES CON LA DISTRIBUCION BINOIII AL . " 

50 PRINT: PRINT ” PROF . DR . Id. UOSS , 1384” 

BO LOCATE 8,5: PRINT ” ” 

70 LOCATE 0,8: PRINT ”C0N ESTE PROGRANA, ES DECIR, CON LA D 

IS-” 

80 LOCATE 0 , 10 : PRINT "TRIBUCION BINQNI AL , PUEDE RESPONDER 
SE ft” 

90 LOCATE 0,12: PRINT ”LA SIGUIENTE CUESTION:” 

100 LOCATE 0,15: PRINT "Cuál es la probabilidad de que se pr 
oduz ” 

110 LOCATE 0,16: PRINT ”ca x veces un suceso Favorable, en N 
in-” 

120 LOCATE 0,17: PRINT "tentos, si la probabilidad en un int 
entoes P?” 

130 LOCATE 11, 22: PRINT ”PULSE UNA TECLA” 

140 AS-INPUTSC1) 

150 CLS 

160 PRINT ” DATOS DEL PROBLEMA ” 

170 PRINT ” ” 

180 LOCATE 0,7: INPUT "NUMERO DE INTENTOS : ” ; N 

190 LOCATE 0,12: INPUT "NUMERO DE SUCESOS FAUORABLES . . . : 

X 

200 LOCATE 0,17: PRINT "PROBABILIDAD EN UN INTENTO : 

H10 LOCATE 3,19: PRINT ”Ccomo número decimal V’ : LOCATE 34,17: 
INPUT P 
220 Z-X 

230 REM COEFICIENTE BINOMI AL 
240 Y«N-X:Q-1~P 

250 IF X-0 OR X-N THEN BK-1:G0T0 350 

260 IF X>N/2 THEN H-Y: Y-X: X-H: G“=Q: Q“P: P“G: F=X 

270 GOSUB 470 

280 PX-A:A-N 

290 IF PX-1 THEN PN-N:G0T0 340 
300 FOR I ”N— 1 TO N-X+l STEP -1 
310 A»A*I 
320 NEXT I 
330 PN-A 


LOCATE 0,10: PRINT "TRIBUCION BINOMI AL , PUEDE RESPONDER 





340 BK»PN/PX 
350 UJ-8K*P~X*Q~Y 
360 CLS 

370 LOCATE 11, O: PRINT "RESULTADO” 

380 LOCATE 11,1:PRINT ” *’ 

330 LOCATE 1,7: PRINT "LA PROBABILIDAD DE PRODUCIRSE EN " • N 
400 LOCATE 0, 11 .-PRINT "INTENTOS ”;2;” UECES EL SUCESO FAUOR 
ABLE” 

410 LOCATE S, 15: PRINT "ES : " ; Ul 

420 LOCATE 11 ,22: PRINT ”OTRO CALCULO CS/Nl" 

430 AS-INKEYS 

440 IF A$” ”S” OR A$“”s” THEN 150 

450- IF A$**”N” OR A$~"n” THEN 460 ELSE 430 

460 CLS: LOCATE 11, 12 .-PRINT "FIN DEL PROGRAMA” END 

470 REM SUBRUTINA 

480 A-X 

4S0 IF X“0 OR X-l THEN A-l : GOTO 530 

500 FOR I-X-l TO 1 STEP -1 

510' A~A*I 

520 NEXT I 

530 RETURN 
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Lista de variables: 

A = Producto en el cálculo de factoriales 
A$ = Variable de cadena para la Introducción de 
respuestas 

BK = Coeficiente binomíal 

F = Valor auxiliar (F=X) 

G = Valor auxiliar en el cambio de P y Q 

H = Valor auxiliar en el cambio de X e Y 

1 = Indice variable 

N = NGmero de intentos 

P = Probabilidad de producirse el suceso 
favorable en cada intento 

PN = Primer término del coeficiente binomial 

PX = Segundo término del coeficiente binomial 

Q = 1-P 

W = Probabilidad 

X = NGmero de sucesos favorables 

Y = N-X 

Z = X 
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Descripción de i programa 


Línea 10-120 : Título y aclaraciones 

Línea 130-210 : Espera e introducción de las 

Informaciones INPUT (número de 
Intentos, probabilidad). 

Línea 220-340 : Determinación del coeficiente bino- 

mial : 

240 : Campos auxiliares; 

250 ; Si X=0 ó X=1 entonces el coe- 
ficiente se define como 1; 
seguir en 350; 

260 : Si X>N/2 entonces, para apro- 
vechar las posibilidades de 
reducción, cambiar X por N-X 
y P por 1-P 

280 : Definición del denominador 
(=PX) del coeficiente y re- 
definición de A, en caso de 
utilizar nuevamente var. A 
(300); 

290 : Si el denominador del coefi- 
ciente es = 1, entonces el 
numerador queda definido como 
N; seguir en línea 340. 

300-320 : Determinación del numera- 
dor del coeficiente BK; 

340 : Cálculo de BK. 

: Cálculo deja probabilidad buscada. 


Línea 350 




Línea 360-410 : Impresión del resultado del cálculo. 

Línea 420-460 : Final del programa, a menos que no 

se quiera un nuevo cálculo (entonces 
volver a la línea 190 tras borrar la 
pantal la). 


Línea 570-530 : Subrutina para calcular un factorial 






Presentación de i programa 





Cuando nos encontramos con problemas cuya resolución 
requiere el cálculo de un sistema de N ecuaciones con N 
incógnitas cada una, es conveniente tener un programa que 
nos permita librarnos de los tediosos y repetitivos cálculos 
a que nos Nevaría un sistema de gran envergadura. 

El algoritmo del programa se basa en aplicar el método de 
Gauss-Jordan a la matriz ampliada del sistema. Este método 
viene explicado en cualquier tratado de álgebra lineal 
existente *en el mercado por lo que nos extenderemos en su 
expl Icación. 

El programa pregunta en primer lugar la dimensión de la 
matriz ampliada del sistema que tenemos que resolver. A 
continuación se nos van pidiendo los coeficientes de cada 
ecuación (si falta alguna incógnita deberemos Introducir un 
cero) . 

Una vez introducidos todos los coeficientes se pasa al 
cálculo de las soluciones. 

Este programa no tiene en cuenta ios posibles casos de 
incompatibilidad; instamos al iector a que modifique el 
programa teniendo en cuenta estos posibles casos. 





10 COLOR 15,1,1 : WIDTH 40: CLS: KEY OFF 
20 FOR 1-1 TO N 

30 LOCATE 0,7: PRINT "ESTE PROGRAMA RESUELUE SISTEMAS DE EC 
UA-” * 

40 PRINT ”C IONES MEDIANTE LA APLICACION DEL METODO"’ 

50 PRINT ”DE GAUSS- JORDAN . " 

60 LOCATE 7, 22: PRINT "Pulse una tecla por favor" 

70 AS-INPUTSC13 
80 CLS 

90 LOCATE 1,3: PRINT "DIMENSION DE LA MATRIZ DE COEFICIENTE 
S ” : PR I NT : PR I NT ” DEL SISTEMA" : LOCATE 25,11:INPUT 

N 

100 DIM ACN , N3 
110 CLS 

120 FOR 1-0 TO N-l 

130 PRINT ” COEFICIENTES DE LA ” ; I + 1 ; CHR2¡C 1663 5 ” ECUACIO 
N”: PRINT: PRINT: PRINT: PRINT 
140 FOR J-0 TO N-l 

150 PRINT ” AC ”1+1” , ”J+1”3 - ” ; : INPUT AC I , J3 : PRI 

NT 

160 NEXT J 

170 INPUT ” Término cte . b - ”;ACI,N3:CLS 
180 NEXT I 

130 COLOR 1,15, 15: CLS: LOCATE 10,10:PRINT "CALCULAND 
0 ” " 

200 FOR 1-0 TO N-2 
210 FOR J-I+l TO N 

220 in-acj, d/aci, n 

230 FOR X-0 TO N 

240 AC J , X3-AC J , X3— IN*AC I , X3 

250 NEXT X 

260 NEXT J 

270 NEXT I 

260 FOR 1-0 TO N-l 

290 IF AC 1,13-1 THEN 340 

300 IN-l/AC 1,13 






Voss 

Capítulo 

9 : Matemáticas M 

Página 


Punto 

16 : Solución de 

360 

Colegio 


ecuaciones 



310 FOR X=0 TO N 
320 flCI,X3-IN*ACI,X3 
330 NEXT X 
340 NEXT I 

350 FOR I-N-l TO O STEP -1 
360 SU=0 

370 FOR X-I+l TO N-l 
380 SU*=SU+ñCX , I , X3 

330 NEXT X 

400 ACI, n-ACI.ND-SU 
410 NEXT I 

420 COLOR 15,1,1: CLS 

PRINT°PrÍnT 0,1:PRINT ” * LAS S0LUCI0N ES SON: ":PRINT: 

440 FOR 1-1 TO N 

450 IF PCI-l, I~13— FIXC A( 1-1 , I— 1)}> .93333 THEN W-ACI-1 I-1H 
1E-05: W=FIXÍ CW*10000+ .52/100003 : PRINT ” v» . T . „ 

” ; Iii : PR I NT : GOTO 470 ’ ' i 

¡SSJEEY 

LSE L0 “ IE n “¿K^S^ I . N DEL = E 

430 END 
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Descripción del programa: 

Línea 10-50 : Título y descripción de i programa 

Línea 60-70 : Bucle de espera. 

Línea 80 : Borrado de la pantalla 

Línea 90 : Petición de la dimensión de la matriz 

ampliada del sistema. 

Línea 100 : DImensionado de la matriz A con las dimen 

s iones del sistema. 

Línea 110-180 : Petición de los coeficientes y término 
constante de cada ecuación 

Línea 190 : Impresión del mensaje ' * CALCULANDO ' * 

Línea 200-410 : Cálculo de la diagonal i zaclón de la ma- 

triz ampliada y dé las soluciones del sis- 
tema. 







9.17 Elecciones 


Presentaolón del problema 


El programa representa gráficamente, en forma de un diagrama 
de barras, los resultados de las elecciones. 

Para ello, el usuario debe Introducir el porcentaje de votos 
obtenido por los partidos señalados en el programa : PSOE, 
AP, CIU, PCE y oíros. 

Anal I sis del problema 


Dada la sencillez del problema podemos prescindir del 
anal Isís del . mismo. 




10 REn #111115# -ELECCIONES— 

20 COLOR 15,1,1: SCREEN Ü:U1IDTH 40:KEY 0FF:CLS 
30 PRINT ” PROGRAMA PARA LA REPRESENTACION GRAFICA” 

40 PRINT ” DE RESULTADOS ELECTORALES.” 

50 PRINT: PRINT *' PROF . DR . W. UOSS, 1384” 

50 LOCATE 8, 5: PRINT " : ” 

70 DIM FC5),GC5) 

80 LOCATE 0,8: PRINT "INTRODUCE LOS RESULTADOS ELECTORALES 


30 

LOCATE 

12, 12: INPUT 

”PSOE : 

X:F(1)-X 

100 

LOCATE 

12,14: INPUT 

"AP : 

X : F(2)**X 

110 

LOCATE 

12,16: INPUT 

"CDC : 

X : F C 33“X 

120 

LOCATE 

12, 18: INPUT 

"PCE : 

X : F C 4 5 "X 

130 

LOCATE 

12,20: INPUT 

"OTROS : 

X:FC55-X 

140 

S-0 




150 

FOR 1-1 

TO 5 



160 

s-s+Fcn 



170 

NEXT I 





180 IF S-100 THEN 130 ELSE CLS: LOCATE 7, 3: PRINT "ERROR EN L 

A INTRODUCCION”: LOCATE 11 ,22: PRINT "PULSE UNA TECLA” : AS» INP 

UTSC13 : CLS: GOTO BO 

130 CLS 

200 FM-0 

210 FOR 1-1 TO 5 

220 IF FC I 3>FM THEN FM-FCn 

230 NEXT I 

240 FOR 1-1 TO 5 

250 GCn-C13/Fm»FCI) 

260 Gcn-Fixcecn+.s) 

270 NEXT I 

280 PRINT ” RESULTADOS” 

230 PRINT ” ” 


300 

LOCATE 

12,5: PRINT 

PSOE 

: ” ; F C 1 5 

310 

LOCATE 

12,0: PRINT 

AP 

: ” ; FC23 

320 

LOCATE 

12, 11:PRINT 

”COC 

: ” ; F C 3 1 

330 

LOCATE 

12, 14:PRINT 

"PCE 

: ” ; F C 4 5 

340 

LOCATE 

12,17: PRINT 

"OTROS 

: ” ; F C 5 3 

350 

LOCATE 

12 , 22 : PRINT 

"PULSE 

UNA TECLA” 


360 AS-INPUTSC13 : CLS 
370 REM GRAFICO 





380 FOR J-l TO 5 

390 B-17:A-17-GCJ3 

400 FOR I-A TO B 

410 LOCATE C J-l 5 *8+2, I : PRINT 

420 LOCATE CJ-13*8+3, I : PRINT 

430 LOCATE C J-l 5*8+4, I PRINT ”*” 

440 NEXT I 

450 NEXT J 

460 FOR 1-0 TO 39 

470 LOCATE 1,17: PRINT 

480 NEXT I 

490 LOCATE 0,19:PRINT ” PSOE AP CDC PCE OTR 

OS” 

500 LOCATE 11, 22: PRINT ”FIN DEL PRQGRAflA” : END 





Lista de variables: 

A = Línea de inicio del gráfico 
B = Línea final del gráfico 
F = Porcentajes 
FM = Valor máximo 
G = Porcentajes transformados 
I = Indice variable 
J = Indice variable 
S = Campo para sumas 
X » Campo para Introducir datos 
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Descripción de i programa: 


Línea 10-60 
Línea 70 
Línea 80-130 


: Título y aclaraciones 
: Dimensíonados 

: Introducción de las informaciones 
INPUT 


Línea 140-180 
Línea 190 
Línea 200-230 
Línea 240-270 


Línea 280-350 
Línea 360-450 
Línea 460-480 
Línea 490 


: Prueba 

: Borrado de la pantalla 

: Búsqueda del porcentaje mayor 

: Conversión de los porcentajes de 
manera que el valor máximo aprove- 
che el espacio disponible en la 
pantal la 

: Impresión de las Informaciones 

: Impresión del gráfico 

: impresión de una línea horizontal 

: impresión de los textos PS0E, AP, CDC, 
PCE, OTROS. 


Línea 500 


: Final del programa. 
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Epílogo 


En los capítulos precedentes hemos intentado mostrar cómo 
pueden resolverse problemas típicos de la escuela con 
programas BASIC relativamente sencillos. 

Desearía insistir en que los ejemplos escogidos tienen 
Cínicamente carácter de muestra, y que no se le ha dado 
concedido especial importancia a los programas óptimos. 

El lector debe comprender rápidamente el funcionamiento de 
los programas. De este modo será capaz de encontrar la vía 
de resolución de otros problemas, que frecuentemente se 
asemejarán a los que aquí presentamos. 

Lo fundamental a la hora de utilizar un ordenador no es el 
ordenador en sí, sino la capacidad que demuestra el usuario 
para tratar determinados problemas, de forma que pueda 
ofrecerle al ordenador el tipo de resolución más adecuada 
para un programa. 

No es necesario que un programa funcione perfectamente a la 
primera (aun cuando esto, naturalmente, sea muy positivo) j 
el usuario debe aprender cómo estructurar mentalmente un 
problema dado, para que el ordenador pueda resolverlo : 
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La causa es que el ordenador no sirve para nada si nosotros, 
los usuarios, no conocemos la vía de resolución con 
anterioridad. 

SÍ alguna vez ocurriese que un programa no funciona tal y 
como nosotros lo habíamos previsto, informándonos mediante 
un mensaje de error y la interrupción del programa, siempre 
nos ayudará el echar una ojeada al manual del ordenador. 

A aquellos lectores, a los que los ejemplos presentados les 
han parecido demasiado sencillos. Ies indicaremos que este 
libro ha sido concebido en primera instancia para 
principiantes del BASIC y que no hemos querido superar sus 
posibilidades a través de una complejidad excesiva de la 
obra. Para consuelo de los primeros, queremos anunciar la 
pronta publicación de un segundo tomo de esta obra, donde se 
estudiarán problemas más complejos, especialmente de tipo 
matemático. , 
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BASIC 
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28 
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32 

Bucle del programa 

32 
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Cadena 11» 18, 30 

Cálculo 18 

Cálculo de intereses 256 

Cálculo de porcentajes 80 

Cálculos estequiométr icos 116 

Campo 1 0 

Capitales 238 

Carácter especial 9 

Caracteres gráficos 96 

Cargar 34 

Cassette 1 3 

CHRS 25, 36, 97 

Cifra 18 

Círculo 299 

CIRCLE 136 

Cádígo ASCII. 96 

COLOR 134, 135 

Comando 12, 20 

Combinaciones 336 
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Coseno 309 
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ROBOTICA 
PARA SU 
COMMODQRE 64 



UN LIBRO DATA BECKER 


ROBOTICA PARA SU COMMODORE 64, 230 páq 
P.V.P. 2.800,- ptas. 

En ei libro de los robots se muestran las asombrosas 
posibilidades que ofrece ei CBM 64, para el control y la 
programación, presentadas con numerosas ilustraciones e 
intuitivos ejemplos. El punto principal: Cómo puede construir- 
se uno mismo un robot sin grandes gastos. Además, un 
resumen del desarrollo histórico del robot y una amplia 
introducción a los fundamentos cibernéticos. 

Gobierno del motor, el modelo de simulación, interruptor de 
pantalla, el Port-Usuario cómodo del modelo de simulación, 
Sensor de infrarrojos, concepto básico de un robot, realimen- 
tación unidad cibernética, Brazo prensor, Oír y ver. 



TODO SOBRE EL FLOPPY 1541, 482 páq. 

P.V.P. 3.200,- ptas. 

La obra Standard del floppy 1541, todo sobre la programa- 
ción en disquettes desde los principiantes a los profesiona- 
les, además de las informaciones fundamentales para el 
DOS, los comandos de sistema y mensajes de error, hay 
varios capítulos para la administración práctica de ficheros 
con el FLOPPY, amplio y documentado Listado del Dos. 
Además un filón de los más diversos programas y rutinas 
auxiliares, que hacen del libro una lectura obligada para los 
usuarios del Floppy. 



MANTENIMIENTO Y REPARACION DEL FLOPPY 1541 
200 pág. 

P.V.P. 2.800,- ptas. 

Saberse apañar uno mismo, ahorra tiempo, molestias y 
dinero, precisamente problemas como el ajuste del floppy o 
reparaciones de la platina se pueden arreglar a menudo con 
medios sencillos. Instrucciones para eliminar la mayoría de 
perturbaciones, listas de piezas de recambio y una introduc- 
ción a la mecánica y a la electrónica de la unidad de disco, 
hay también indicaciones exactas sobre herramientas y 
material de trabajo. Este libro hay que considerarlo en todos 
sus aspectos como efectivo y barato. 





PEEKS y POKES, 1 77 pág. 
P.V.P. 1.600,- pías. 




Con importantes comandos PEEK y POKE se pueden hacer 
también desde ei Basic muchas cosas, para las que se 
necesitarían normalmente complejas rutinas en lenguaje 
máquina. Este libro explica de manera sencilla el manejo de 
PEEKs y POKEs. Con una enorme cantidad de POKEs 
importantes y su posible aplicación. Para ello se explica 
perfectamente la estructura de! Commodore 64: Sistema 
operativo, interpretador, página cero, apuntadores y stacks, 
generador de caracteres, registros de sprites, programación 
de interfaces, desactivación del interrupt. Además una in- 
troducción ai lenguaje máquina. Muchos programas ejemplo. 



EL MANUAL DEL CASSETTE, 190 pág. 

P.V.P. 1.600,- ptas. 

Un excelente libro, que le' mostrará todas las posibilidades 
que le ofrece su grabadora de casettes. Describe detallada- 
mente, y de forma comprensible, todo sobre el Datassette y la 
grabación en cassette. Con verdaderos programas fuera de 
serie: Autostart, Catálogo (¡busca y carga automáticamente!), 
backup de y a disco, SAVE de áreas de memoria, y ¡o más 
sorprendente: un nuevo sistema operativo de cassette con el 
10-20 veces más rápido FastTape. Además otras indicacio- 
nes y programas de utilidad (ajuste de cabezales, altavoz de 
control). 
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MSX PROGRAMAS Y UTILIDADES, 1985, 194 pág. 

P.V.P. 2.200,- ptas. 

El libro contiene una amplia colección de importantes 
programas que abarcan, desde un desensamblador hasta un 
programa de clasificaciones deportivas. Juegos superemo- 
cionantes y aplicaciones completas. Los programas mues- 
tran además importantes consejos y trucos para la programa- 
ción. Estos programas funcionan en todos ios ordenadores 
MSX, así como en el SPECTROVIDEO 318 328. ESTRACTO 
DEL CONTENIDO: Volcado memoria hexadecimal. Editor 
gráficos. Editor de sonido. Escritura de ordenador. Lista 
referencia de variables. Calendario. Desensambladcr. ADMI- 
NISTRACION de una colección de discos L.P. HOLLOW - 
JUEGO DE LAS CEREZAS. DIAGRAMAS DE BARRAS. 
TABLAS DEPORTIVAS. 



ZX SPECTRUM CONSEJOS Y TRUCOS 211 páq 
P.V.P. 2.200,- ptas. y ' 

Una interesante colección se sugestivas ideas y soluciones 
para la programación y utilización de su ZX ESPECTRUM 
Aparte de muchos peeks, pokes y USRs hay también 
capítulos completos para, entre otros, entrada de datos 
asegurado sin bloqueo de ordenador, posibilidades de 
conexión y utilización de microdrives y lápices ópticos’ 
programas. para la representación de diagramas de barra y 
de tarta, el modo de utilizar óptimamente ROM y RAM. 



CPC-464 EL LIBRO DEL COLEGIO 
P.V.P. 2.200,- ptas. 

Escrito para alumnos de los últimos cursos de EGB y de BUP, 
este libró contiene muchos programas para resolver proble- 
mas y de aprendizaje, descritos de una forma muy compleja y 
fácil de comprender. Teorema de Pitágoras, progresiones 
geométricas, escritura cifrada, crecimiento exponencial, ver- 
bos irregulares, igualdades cuadráticas, movimiento pendu- 
lar, estructura de moléculas, cálculo de interés y muchas 
cosas más. . 



ZX SPECTRUM EL MANUAL ESCOLAR 
P.V.P, 2.200,- ptas. 

Escrito para alumnos de los últimos cursos de EGB y de BUP, 
este libro contiene muchos programas para resolver proble- 
mas y de aprendizaje, descritos de una forma muy completa 
y fácil de comprender. Teorema de Pitágoras, progresiones 
geométricas, escritura cifrada, crecimiento exponencial, ver- 
bos irregulares, igualdades cudráticas, movimiento pendular, 
estructura de moléculas, cálculo de interés y muchas cosas 
más. 



MSX_ EL MANUAL ESCOLAR 
P.V.P. 2.800,- ptas. 

Escrito para afumaos de ios últimos cursos de EGB y de BUP,_ 
este libro contiene muchos programas para resolver proble- 
mas y de aprendizaje, descritos de una forma muy completa 
y fácil de comprender. Teorema de Pítágoras, progresiones 
geométricas, escritura cifrada, crecimiento exponencial, ver- 
bos irregulares, igualdades cuadráticas, movimiento pendu- 
lar, estructura de moléculas, cálculo de interés y muchas 
cosas más. 



CPC-464 CONSEJOS Y TRUCOS 
P.V.P. 2.200,- ptas. 

Ofrece una colección muy interesante de sugerencias, ideas 
y soluciones para la programación y utilización de su 
CPC-464: Desde la estructura del hardware, sistema de 
funcionamiento - Tokens Basic, dibujos con el joystick, 
aplicaciones de ventanas en pantalla y otros muchos intere- 
santes programas como el procesamiento de datos, editor de 
sonidos, generador de caracteres, monitor de código máqui- 
na hasta listados de interesantes juegos. 



METODOLOGIA DE LA PROGRAMACION 
P.V.P. 2.200,- ptas. 

El primer libro recomendado para. escuelas de enseñanza de 
informática y para aquellas personas que quieren aprender la 
programación. Cubre las especificaciones del Ministerio de 
Educación y Ciencia para Estudios de Informática Realizado 
por un alto mando del ejército Español, un Dr. Ingeniero y 
Diplomado en Informática y profesor de la UNED y por un 
oficial técnico especialista en informática de gestión. Utiliza- 
do en todos los institutos politécnicos del ejército español. Es 
un seguro candidado a ediciones en lengua inglesa, alemana 
y francesa. Es el primer libro que introduce a la lógica del 
ordenador. Es un elemento de base que sirve como introduc- 
ción para la programación en cualquier otro lenguaje. No se 
requieren conocimientos de programación ni siquiera de 
informática. Abarca desde los métodos de programación 
clásicos a los más modernos. 


MANUAL ESCOLAR PARA SU COMMODORE 64, 351 páo 
P.V.P. 2.800,- ptas. 

Este libro, escrito especialmente para escolares de grado 
medio y superior, contiene muchos interesantes programas 
de aprendizaje para solucionar problemas, descritos detalla- 
damente y de manera fácilmente comprensible. Facilitan un 
aprendizaje intensivo y ameno, con, entre otros, los siguien- 
tes temas: Teorema de pitágoras, progresiones geométricas, 
palanca mecánica, crecimiento exponencial, verbos irregula- 
res, ecuaciones de segundo grado, movimientos de péndulo, 
formación de moléculas, aprendizaje de vocablos, cálculo de 
interés y su capitalización. Una corta repetición de los 
elementos BASIC más importantes y una introducción a los 
rasgos esenciales .del análisis de problemas, entre otros, 
completan el conjunto. 
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UN LIBRO BATA BECKER 

eoitAoo pon reuní uo/tcr, 5.4. 


MSX GRAFICOS Y SONIDOS, 250 pág. 

P.V.P. 2.800,- ptas. 

Las computadoras MSX no sólo ofrecen una rélación precio/ 
rendimiento sobresaliente, sino que también poseen unas 
cualidades gráficas y de sonido excepcionales. Este libro 
expone las posibilidades de los MSX de forma completa y 
fácil. El texto se completa con numerosos y útiles programas 
ejemplo. 
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64 EN EL CAMPO DE LA TECNICA Y LA CIENCIA, 296 páq. 
P.V.P. 2.800,- ptas. M y 

Ofrece un campo fascinante y amplio de problemáticas 
científicas. Para esto el libro contiene muchos listados 
interesantes: Análisis de Fornier y síntesis, análisis de redes, 
exactitud de cálculo, formateado de números, cálculo del 
valor PH, sistemas de ecuaciones diferenciales, modelo 
ladrón presa, cálculo de probabilidad, medición de tiempo, 
integración, etc. 







LENGUAJE MAQUINA PARA 
COMMODORE 64, 1984, 201 pág 
P.V.P. 2.200,- pías. 

¡Por fin una introducción al código máquina fácilmente 
comprensible! Estructura y funcionamiento del procesador 
6510, introducción y ejecución de programas en lenguaje 
máquina, manejo del ensamblador, y un atractivo muy 
especial: jun simulador de paso a paso escrito en BASIC! 


LENGUAJE MAQUINA PARA AVANZADOS 
CBM 64, 1984, 206 pág. 

P.V.P. 2.200 ptas. 

¿Ud. ha logrado iniciarse en código máquina? Entonces el 
«nuevo English» le enseñará cómo convertirse en un profe- 
sional. Naturalmente con muchos programas ejemplo, rutinas 
completas en código máquina e importantes consejos y 
trucos para la programación en lenguaje máquina y para el 
trabajo con el sistema operativo. 



Apartado N.° 551: F.D. 
08080 BARCELONA 



EL CONTENIDO: 

Escrito para alumnos de los últimos cursos de EGB y 
de BUP, este libro contiene multitud de programas 
para resolver problemas y de aprendizaje, descritos 
de una forma muy completa y fácil de comprender. 
Proporcionan un aprendizaje intensivo, a la vez que 
divertido, con el MSX. 

Del contenido: 

— Teorema de Pitágoras 

— Progresiones geométricas 

— Escritura cifrada 

— Crecimiento exponencial 

— Verbos irregulares 

— Igualdades cuadráticas 
«- Movimiento pendular 

— Estructura de moléculas 
. — Repaso de vocablos 

— Cálculo de intereses 

Una pequeña panorámica sobre los fundamentos del 
tratamiento informático, un somero repaso a los princi- 
pales elementos del BASIC y una introducción en los 
aspectos básicos del análisis de problemas comple- 
tan el libro. 

ESTE LIBRO HA SIDO ESCRITO POR: 

Werne-r Voss, profesor de estadística en la Universi- 
dad de Bochum. Multitud de publicaciones dentro del 
cámpo de la estadística y del tratamiento informático. 


ISBN 84-86437-26-1 


